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ABSTRACT 

This  thesis  presents  a  computer  simulation  model  of  the 
direct  support  maintenance  system  in  the  brigade  area. 
Current  and  future  maintenance  doctrine  Is  addressed  as 
background,  and  is  used  as  a  basis  for  the  model.  Submodels 
to  generate  maintenance  workload,  perform  the  maintenance 
functions,  and  evaluate  attrition  of  the  maintenance  units 
are  discussed  In  detail.  A  program  listing  Is  provided  and 
complete  documentation  is  given.  Data  generated  by  the 
model  is  used  as  an  example  of  a  potential  application. 
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Future  combat  on  the  modern  battlefield  will  be  intense 
and  will  involve  great  expenditures  of  resources.  The  United 
States  Army  may  be  forced  to  fight  outnumbered  and 
outgunned,  and  will  therefore  have  to  depend  on  superior 
training,  technology,  tactics,  and  logistics  to  Improve  its 
chance  of  victory  against  its  enemies. 

A  major  necessity,  especially  early  in  the  conflict, 
will  be  to  maintain  a  high  percentage  of  its  combat  power  in 
operation  against  the  enemy.  As  such,  inoperable  equipment 
must  be  returned  to  battle  as  quickly  as  possible.  The 
maintenance  units,  then,  will  be  a  key  factor  In  the  outcome 
of  battle. 

The  purpose  of  this  thesis  is  to  develop  a  model  of  the 
Army  maintenance  system  so  that  meaningful  analysis  can  be 
performed  concerning  its  use  in  combat. 

In  chapter  2,  the  maintenance  system  is  defined,  both  as 
it  operates  today  and  as  it  will  operate  in  the  near  future. 
Two  examples  of  previous  modelling  efforts  are  also 
discussed.  In  chapter  3,  a  brief  explanation  of  the 
maintenance  model  is  given.  A  detailed  explanation  of  the 
methodology  of  the  model  is  given  in  appendix  B.  The 
computer  program  listing  is  given  in  appendix  E,  and  the 
program  is  completely  documented  in  appendix  C.  A  sample  of 


the  output  of  the  model  Is  shown  In  appendix  D,  and  appendix 
A  gives  an  example  of  the  type  of  problem  the  model  can  help 
to  solve,  as  well  as  a  set  of  data  generated  In  a  model 

exerci se. 


A.  INTRODUCTION 

The  purpose  of  this  chapter  Is  to  explain  the  operation 
of  the  United  States  Army's  maintenance  system,  both  how  it 
works  now,  and  how.  it  will  work  in  the  future.  A  clear 
understanding  of  this  system  and  the  various  factors  that 
impact  on  the  system  is  essential  if  one  is  to  build  a  model 
that  will  accurately  represent  the  maintenance  process. 

The  maintenance  system  has  been  modelled  in  the  past  and 
two  examples  of  these  modelling  attempts  are  discussed. 

Finally,  the  requirements  for  a  model  that  could  be  used 
to  analyze  the  operations  of  maintenance  units  in  combat  are 
presented. 

B.  THE  MAINTENANCE  SYSTEM  IN  THE  ARMY  TODAY 

When  the  operator  of  a  vehicle  observes  a  malfunction, 
he  reports  the  problem  to  the  organizational  maintenance 
section  in  his  company.  Virtually  all  company  sized  units 
in  the  Army  have  organic  maintenance  capability  tailored  to 
the  type  of  equipment  the  unit  has.  [l]  The  mission  of 
these  "organizational"  or  second  echelon  maintenance 
sections  is  to  perform  scheduled  prevent! tive  maintenance 
and  to  make  minor  repairs  on  the  unit's  organic  equipment 
when  needed.  The  vehicle  would  be  inspected  by  these 


personnel  to  locate  the  source  of  the  problem. 

Each  component  of  every  piece  of  equipment  in  the  Army 
inventory  Is  listed  in  the  technical  manual  for  that  piece 
of  equipment.  Along  with  the  components  list  is  a 
Maintenance  Allocation  Chart/  MAC/  that  specifies  the  level 
of  maintenance  that  must  be  performed  on  the  component.  [ 2) 
After  locating  the  malfunctioning  part,  the  MAC  is  checked 
to  see  whose  job  it  is  to  repair  the  vehicle. 

If  authorization  exists  for  the  job  to  be  done  at 
organizational  level/  the  necessary  parts  are  taken  from  the 


relatively 

small  supply 

of 

parts 

the 

uni  t 

has 

on  hand. 

called  its 

prescr (bed 

load 

list 

or 

PLL/ 

or 

they  are 

requisitioned.  The  repair 

would 

then 

be 

made 

and  the 

vehicle  would  be  returned  to  service. 

If  the  repair  is  not  authorized  to  be  performed  at 
organizational  level/  the  vehicle  would  be  assigned  a 
priority  commensurate  with  its  importance  to  the 
accomplishment  of  the  mission  of  the  unit/  and  would  be 
taken  to  the  next  level  of  maintenance  for  repair. 

In  the  case  of  a  divisional  unit/  "direct  support"  or 
third  echelon  maintenance  support  is  provided  by  the 
companies  of  the  divisional  maintenance  battalion.  Each 
brigade  of  the  division  is  supported  by  one  forward  support 
maintenance  company.  This  company  would  be  located  in  the 
brigade  support  area ,  known  as  the  brigade  trains  area, 
which  is  doctrinal ly  placed  about  25  kilometers  to  the  rear 


of  the  forward  edge  of  the  battle  area.  [3] 

The  rest  of  the  maintenance  battalion  including  the 
heavy  and  light  maintenance  companies  and  the  missile 
support  company  would  be  located  In  the  Division  Support 
Area,  the  DSA,  in  the  division  rear.  With  their  greater 
capabilities  and  their  more  static  situation,  they  provide 
backup  support  for  the  forward  support  companies. 

The  maintenance  battalion  also  provides  repatr  parts 
(Class  IX)  support  both  for  its  own  shops  performing 
repairs,  and  for  those  of  organizational  maintenance 
activities  in  supported  units  of  the  division,  each  forward 
support  company  has  a  satellite  repair  parts  supply 
operation  that  draws  on  the  main  repatr  parts  warehouse  in 
the  DSA,  and  supplies  parts  to  all  of  its  supported  units. 

When  the  vehicle  arrives  at  the  forward  support  company, 
an  experienced  inspector,  usually  a  staff  sergeant  performs 
a  complete  technical  inspection  of  the  vehicle.  He  then 
orders  the  parts  necessary  for  the  repair  and  sends  I t  to  a 
crew  of  mechanics  who  will  actually  do  the  work.  Often 
repair  parts  will  not  be  immediately  available,  or  all  the 
crews  will  be  busy.  The  job  would  then  have  to  wait. 

Waiting  jobs  are  performed  in  order  of  priority,  both  on 
the  basis  of  prloity  that  the  unit  has  assigned  to  the 
equipment,  and  on  the  priority  the  brigade  commander  has 
assigned  the  units  of  the  brigade. 

Once  again,  as  In  the  case  of  the  organizational  units. 
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the  possibility  exists  that  the  type  of  repair  needed  will 
not  be  authorized  at  the  direct  support  level  according  to 
the  maintenance  allocation  chart.  In  that  event,  the 
equipment  would  be  further  evacuated  to  the  "general 
support"  maintenance  units  at  corps  level  by  the  direct 
support  personnel . 

When  the  item  is  finally  repaired,  it  must  repeat  the 
steps  in  reverse  before  it  is  returned  to  the  user  so  that 
all  intermediate  maintenance  levels  can  complete  the  work 
orders  that  were  opened  when  the  job  was  received. 

There  is  another  possible  fate  that  could  befall  the 
vehicle  as  it  proceeds  through  the  echelons  of  the 
maintenance  system.  At  any  level,  direct  support  or  higher, 
an  inspector  can  determine  that  the  piece  of  equipment  is  so 
badly  damaged  that  it  would  cost  more  to  repair  it  than  it 
is  worth.  At  this  point,  he  will  declare  the  equipment 
uneconoml cal  1 y  repairable  and  the  owner  unit  of  the 
equipment  would  have  to  requisition  a  new  piece  of  equipment 
through  the  supply  system.  £4]  The  item  would  then  become 
a  source  of  supply  parts  itself  and  any  serviceable 
components  could  then  be  used  to  repair  other  items.  This 
process  is  called  cannibalization  or  substitution  and  it  is 
especially  useful  for  repair  of  items  that  require 
infrequently  ordered  parts  that  would  not  normally  be 
stocked  in  the  unit  PLl  or  in  the  direct  support  repair 
parts  facilities. 


An  additional  element  that  must  be  considered  when  one 
discusses  maintenance  is  the  Operational  Readiness  Float 
program  of  the  division.  An  Operational  Readiness  Float, 
ORF,  is  an  item  of  equipment  that  is  maintained  by  the 
divisional  maintenance  battalion  and  is  issued  to  a  unit  to 
temporarily  replace  a  like  item  that  needs  repair.  [4l  The 
Army  Regulation  governing  ORF's  specifies  a  complicated 
formula  for  computing  the  number  of  float  I  terns  of  each  type 
that  the  division  is  authorized  to  have  on  hand.  The 
regulation  is  also  quite  emphatic  about  the  rules  for 
issuing  ORF's  in  regard  to  the  length  of  time  the  needed 
repair  is  anticipated  to  take.  Usually,  the  float  items  are 
maintained  in  the  DSA  by  the  heavy  and  light  maintenance 
compan  f  es . 

C.  PROBLEMS  AND  PROPOSED  CHANGES 

Several  problems  exist  in  the  system  today  that  have 
arisen  during  the  last  two  decades  as  It  became  more  and 
more  evident  that  U.S.  forces  would  fight  outnumbered  in  the 
next  conflict  in  Europe. 

First,  the  repair  parts  supply  of  the  division  is  not 
100  percent  mobile.  Since  it  is  anticipated  that  a  very 
short  preparation  time  will  be  available  before  the  next 
conflict,  the  inability  of  the  maintenance  battalions  to 
move  their  warehouse  operations  will  impact  heavily  on  the 
availability  of  repair  parts. 
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Second/  the  fact  that  our  fighting  resources  are  very 
limited  compared  to  potential  adversaries  makes  the  rapid 
return  to  battle  of  repaired  equipment  an  absolute 
necessity.  The  delays  that  are  inherent  to  the  present 
system/  especially  in  the  area  of  transport  of  unserviceable 
equipment  to  maintenance  facilities/  totally  preclude 
meeting  this  requirement. 

The  late  classification  of  uneconomlcally  repairable 
items  Is  a  third  problem.  Time  ts  wasted  on  equipment  that 
will  not  be  returned  to  combat  and  a  source  of  repair  parts 
that  would  otherwise  be  immediately  available/  Is  removed. 

During  the  1973  Mid  East  War,  Israeli  maintenance  units 
faced  these  and  other  problems  and  were  very  successful  in 
dealing  with  them.  In  particular  they  were  very  adept  at 
making  repairs  and  performing  classifications  much  closer  to 
the  forward  edge  of  the  battle  area  than  had  been  thought 
possible.  Direct  support  maintenance  teams  and  Inspectors 
went  to  the  unserviceable  equipment  rather  than  forcing  the 
supported  units  to  bring  the  I  terns  to  them.  This  method  of 
employment  greatly  improved  the  performance  of  routine 
direct  support  repairs  and  cannibal  I zations  could  be  made 
quickly  to  maximize  the  number  of  systems  available  for 
combat. 

As  a  consequence  of  Israeli  success  In  this  area/  many 
of  their  techniques  have  been  or  will  be  adopted  for  use  by 
the  U.S.  Army/  and  the  organizational  changes  proposed  In 


the  Division  86  study  ar«  reflective  of  this  change  of 
philosophy.  0>] 

To  Implement  this  "fix  forward"  concept  In  the  U.S. 
Army/  major  changes  were  made  to  the  force  structure  at  the 
direct  support  level.  The  forward  support  company  that  was 
previously  only  under  the  operational  control  of  the  brigade 
commander  will  become  organic  to  the  brigade  as  part  of  a 
new  Brigade  Support  Battalion,  included  In  this  battalion  as 
augmentation  to  the  forward  support  company,  will  be  several 
new  teams  called  Tank  Systems  Support  Teams  and  Infantry 
Systems  Support  Teams.  Each  team  will  provide  direct 
support  maintenance  as  far  forward  as  possible  with  the 
former  supporting  the  armor  battalions  and  the  latter 
supporting  the  mechanized  infantry  battalions  of  the  brigade 
task  force.  Each  team  will  be  collocated  with  the 
organizational  maintenance  elements  of  the  battalion  to  do 
as  much  direct  support  work  as  possible  as  close  to  the 
battle  as  possible.  Since  these  teams  have  very  limited 
repair  parts  storage  capabilities,  cannibalization  will  be  a 
major  source  of  supply  of  repair  parts  for  the  operation  of 
these  teams. 

D.  THE  NEED  FOR  FURTHER  ANALYSIS 

A  major  tradeoff  has  been  made  by  moving  maintenance 
elements  forward,  that  is  trading  surivabflity  for 
responsiveness.  For  a  conflict  of  short  duration,  fixing 
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forward  might  be  a  better  way  to  proceed.  If  the  conflict 
continues  over  a  longer  period/  the  increased  vulnerability 
of  these  forward  maintenance  elements  could  result  in  higher 
casualties  among  maintenance  personnel  and/  consequently/  a 
degradation  of  the  maintenance  capabilities  In  the  brigade 
and  the  division.  A  need  therefore  exists  for  analysis  to 
gain  insight  Into  the  ramifications  of  this  tradeoff. 

While  the  organizational  structure  of  the  direct 
support  maintenance  units  of  the  future  has  been  specified 
completely  in  the  Div  86  report/  the  tactics  that  they  will 
use#  and  the  location  of  these  elements  on  the  battle  field 
have  not  been  specifically  defined.  In  fact/  the  guidance 
that  has  been  given  on  this  subject  is  quite  nebulous.  For 
example/  the  Operations  field  manual/  FM  100-5/  says  the 
fol low! ng: 


"...Forward  support  maintenance  companies  extend 
their  support  to  combat  units  by  sending  contact 
teams  to  work  with  them.  Normally  more  than  half 
of  the  repairmen  of  the  company  will  be  out 
working  in  the  combat  area.  People/  parts/  and 
tools  are  pushed  forward  Into  that  forward  support 
area  when  needed;  when  no  longer  needed  they  are 
pulled  back.  Supervised  battlefield 
cannibalization  may  be  used  when  the  parts  are  not 
available  from  the  supply  system,  and  an  Item  of 
equipment  can  be  repaired  using  parts  from  other 
unserviceable  equipment..."  [6] 


Another  example  of  the  guidance  that  has  been  given 
concerning  the  Implementation  of  the  fix  forward  concept 


comes  from  the  Operational  Concept  document  for  the  Division 
Support  Command  organization  specified  In  the  Dlv  86  study, 
prepared  by  the  U.S.  Army  logistics  Center: 

"...The  Forward  Maintenance  Company  establishes  a 
base  operation  In  the  brigade  trains  and  sends 
teams  forward  to  provide  close-in  support 
consistent  with  tactical  limitations...  L'J 

Perhaps  the  guidance  was  made  very  general  so  that  the 
flexibility  of  the  brigade  commander  would  not  be  Impaired. 
Insight  Into  the  system,  however,  would  be  extremely 
valuable  In  assisting  commanders  In  using  their  maintenance 
assets  in  the  most  efficient  and  effective  manner  possible. 

E.  EXAMPLES  OF  PREVIOUS  MOOELU  NG  EFFORTS 

The  modelling  of  the  combat  maintenance  process  has  been 
very  limited  In  the  defense  model  1 1 ng  community.  Usually 
the  models  were  used  to  do  one  specific  study  and  there  Is 
not  the  proliferation  of  models  at  different  levels  that  one 
finds  In  the  modelling  of  the  combat  functions. 

An  example  of  such  a  model  is  the  Balanced  Forces  or 
8ALF0R  model  developed  by  the  U.S.  Army  Concepts  Analysis 
Agency,  CAA.  [8l  This  model  was  developed  to  examine  the 
Impact  on  the  combat  service  support  system  of  Increasing 
and  decreasing  the  levels  of  prepositioned  war  reserves  In 
the  European  Theatre.  BALFOR  considers  all  combat  service 
support  functions  and  does  not  limit  Itself  to  maintenance. 
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Personnel  replacement/  medical  evacuation/  and  supply  of 
ammunition  and  fuel  were  also  considered  In  the  model. 
BALFOR  was  made  to  be  compatible  with  several  other  CAA 
models/  such  as  the  CEM  model/  so  that  outputs  from  these 
models  could  be  used  as  sources  of  input  data  to  BALFOR. 
This  model  is  deterministic  and  extremely  fast  running/  and 
plays  the  entire  theatre  combat  service  support  system. 

As  a  tool  for  analyzing  the  new  maintenance  structure 
however,  BALFOR  has  some  serious  shortcomings,  it  does  not 
play  nonavailability  of  parts,  which  is  a  significant  factor 
in  determining  the  time  that  an  item  will  be  Inoperable. 
BALFOR  also  has  the  underlying  assumption  that  there  wi’1  be 
no  attrition  or  Interdiction  of  the  maintenance  elements. 
AS  such.  It  Is  useless  as  an  analysis  tool  for  examining  the 
new  force  structure. 

A  more  general  model  of  combat  maintenance  Is  the 
Maintenance  Support  Concepts,  MASC,  model  developed  for  the 
U.S.  Army  Logistics  Center  by  Braddock,  Dunn,  and  McDonald. 
P]  This  model  Is  the  most  well  known  today  for  analyzing 
maintenance  operations.  Originally,  it  was  used  to  evaluate 
Operational  Readiness  Float  policies. 

MASC  is  a  theatre  level  model  which  explicitly  plays 
all  theatre  maintenance  units  in  detail,  it  Is  a  stochastic 
simulation.  Input  parameters  were  supplied  to  the  designers 
by  the  U.S.  Army  Ordnance  Center  and  School.  These  inputs 
Included  probability  of  correct  diagnosis  and  repair,  out  of 
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stock  probabilities/  repair  time  distributions/  watting 
parts  times  distributions/  float  size  and  distributions/  and 
rates  at  which  vehicles  are  rendered  uneconomi cal  1 y 
repai rabl e. 

A  sensitivity  analysis  of  factors  in  the  simulation 
showed  that  the  factor  that  most  signif icantly  affected  the 
outcome  was  the  failure  rate  of  the  Items/  followed  by  out 
of  stock  probabilities/  washout  rate/  waiting  parts  time/ 
and  the  maintenance  float  policy.  This  result  is  intuitively 
appeal ing. 

The  MASC  model  seems  to  represent  the  maintenance 
functions  very  well/  but/  like  the  BALFOR  model/  it  fails  to 
portray  attrition  and  interdiction  of  the  maintenance  units 
at  all.  Also,  the  proponents  of  the  model  admit  that  the 
model  is  very  scenario  dependent  and  that  only  one  scenario 
was  played. 

In  order  to  evaluate  the  new  force  structure  and 
tactics  proposed  for  maintenance  elements  on  the  modern 
battlefield/  MASC  would  have  to  be  extended  considerably. 

F.  REQUIREMENTS  FOR  MODELLING  THE  MAINTENANCE  SYSTEM  IN 
COMBAT 

It  is  evident  that  past  efforts  in  modelling 
maintenance  in  combat  have  done  a  credible  job  in 
representing  the  maintenance  functions/  but  they  have  been 
woefully  inadequate  in  portraying  the  various  combat 


functions  that  impact  on  the  performance  of  the  maintenance 
mission.  In  the  past,  this  approach  might  have  been 
satisfactory  in  that  combat  service  support  units  were 
doctrinal ly  located  a  substantial  distance  from  the 
fighting.  Now,  however,  with  the  maintenance  units  closer 
to  the  combat,  their  mission  performance  will  be 
significantly  affected  by  combat  activities.  Consequently, 
for  any  model  to  be  a  useful  tool  for  performing  analyses 
regarding  the  maintenance  system,  it  must  take  into 
consideration  these  previously  unconsidered  factors. 

There  are  three  major  areas  of  concern  that  must  be 
included  in  modelling  maintenance  in  combat.  The  first  is 
the  input  to  the  system.  Both  the  number  of  jobs  to  be 
performed  and  the  rate  they  enter  the  system  must  be 
represented  as  accurately  as  possible. 

Next,  the  actual  maintenance  functions  must  be 
portrayed.  All  the  Inspections,  repairs,  evacuations,  and 
cannibal izations  take  time  and  use  up  resources.  In  order 
to  evaluate  how  the  performance  of  the  actual  maintenance 
tasks  is  affected  by  other  factors,  they  must  be  represented 
in  considerable  detail. 

Finally,  the  effect  of  the  combat  situation  on  the 
maintenance  units  must  be  considered.  When  a  maintenance 
unit  is  attacked,  its  capability  to  perform  its  mission  Is 
at  least  disrupted  temporarily  and  may  be  degraded 
permanently.  Frequently,  moves  to  alternate  positions  must 
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be  made  to  Improve  responsiveness  or  to  reduce 
vulnerability.  These  moves  also  use  time  that  cannot  be 
spent  repairing  equipment. 

A  model  that  could  consider  these  factors  would 
unquestionably  be  an  asset  in  doing  analyses  concerning  the 
maintenance  system  In  the  brigade. 
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A.  INTRODUCTION 

In  this  chapter/  a  model  that  has  been  designed  as  an 
attempt  to  meet  the  requirements  of  modelling  the  direct 
support  maintenance  system  in  a  combat  environment  is 
presented  and  discussed  in  general  terms.  A  more  detailed 
model  description  including  a  brief  explanation  of  the 
SIMSCRIPT  11.5  programming  language  is  presented  in  appendix 

B. 

The  maintenance  model  presented  here  is  a  stochastic/ 
discrete  event  simulation  implemented  in  the  SIMSCRIPT  11.5 
programming  language,  [id}  The  system  modelled  Is  the 
direct  support  maintenance  system  in  the  brigade  area.  The 
structure  of  the  maintenance  units  was  taken  from  the  DIV  86 
study  Table  of  Organization  and  Equipment  for  the  Brigade 
Support  Battalion.  The  actual  distribution  of  personnel/ 
however/  is  quite  flexible  in  that  the  user  specifies  the 
types  and  numbers  of  repairmen  In  each  maintenance  unit. 

The  model  only  considers  repair  of  damaged  tanks  and 
armored  personnel  carriers  because  they  have  the  greatest 
effect  on  the  outcome  of  the  battle.  The  damage  sustained 
by  these  vehicles  can  be  categorized  as  either  firepower 
damage  or  mobility  damage.  The  amount  of  damage  in  each 
category  is  expressed  in  terms  of  a  proportion.  This  scheme 
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for  quantifying  firepower  and  mobility  damage  was  chosen  In 
an  attempt  to  be  conslstant  with  the  damage  determination  In 
high  resolution  combat  simulations. 

There  are  two  scenario  options  that  can  be  chosen  by  the 
user.  The  first  portrays  the  trading  of  space  for  time  by 
the  blue  defender.  The  brigade  is  divided  into  two  teams 
that  alternately  drop  back  to  defend  a  succession  of 
defensive  positions.  The  second  portrays  the  brigade  in  a 
stand  and  fight  posture.  These  scenarios  were  chosen  as 
ones  that  would  put  the  most  stress  on  the  maintenance 
system.  The  simulation  ends  when  the  blue  force  level  is 
reduced  to  25%  of  its  original  force  level.  When  this 
condition  is  met,  the  program  terminates  and  the  results  are 
output. 

B.  GENERATING  THE  WORKLOAD 

The  first  major  submodel  Is  concerned  with  producing 
damaged  vehicles  for  the  maintenance  system  to  repair.  This 
battlefield  recovery  model,  entitled  the  Parametric  Analysis 
of  Recovery  and  Evacuation  of  Tracked  vehicles  model,  PARET, 
was  developed  by  MAJ  A.F.Affeldt  to  analyze  battlefield 
recovery  tactics  and  to  determine  the  heavy  equipment 
transport  requirements  for  a  maneuver  brigade,  [ill 

The  PARET  model  plays  a  series  of  battles  corresponding 
to  the  succession  of  red  echelons  attacking  the  defending 
blue  force.  In  each  of  these  battles,  casualties  are 


assessed  and  the  time  necessary  to  destroy  enough  red 
systems  to  force  the  red  attackers  into  a  defensive  position 
are  calculated.  A  Lanchester  type,  homogeneous  force  combat 
model  is  used  to  make  these  computations. 

The  proportion  of  the  damaged  vehicles  for  which 
recovery  is  to  be  attempted  is  computed  as  the  ratio  of  the 
time  available  to  perform  the  recoveries,  to  the  total  time 
necessary  to  recover  all  the  damaged  blue  vehicles.  As 
recovery  is  attempted  for  each  damaged  system,  attrition  of 
the  recovery  vehicles  is  stochastically  determined. 

As  originally  written,  the  PARET  model  did  not  consider 
system  failures  of  combat  vehicles  due  to  wear  and  tear. 
Since  this  type  of  failure  will  constitute  a  significant 
portion  of  the  workload,  they  were  included  in  this  model. 
The  assumption  of  exponentially  distributed  failure  times 
with  common  mean  time  to  failure  for  all  vehicles  is  made, 
and  system  failures  are  scheduled  for  each  vehicle  at  the 
beginning  of  the  simulation.  Due  to  the  random  nature  of 
drawing  the  failure  times,  some  of  the  failures  occur  before 
the  end  of  the  simulation,  and  some  do  not.  During  the 
pre-battle  period,  failed  systems  are  taken  directly  to 
maintenance  after  a  short  time  delay.  Once  the  battle 
begins,  however,  the  failed  systems  that  require  recovery 
are  recovered  In  the  same  manner  as  the  combat  damaged 
veh  I  cl  es  . 

Since  the  recovery  process  is  influenced  to  a  great 
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extent  by  the  onset  of  darkness,  night  Is  represented  In  the 
model.  Several  of  the  parameter  values  are  altered  to  take 
Into  account  the  effects  that  reduced  visibility  has  on  the 
recovery  process,  and  recovery  Is  thereby  Inhibited. 

As  each  successful  recovery  Is  completed,  a  job  Is 
generated  for  the  maintenance  system  and  the  attributes 
describing  the  job  are  stochastically  determined.  These 
attributes  include  the  owning  unit,  the  workorder  number  of 
the  job,  the  firepower  and  mobility  damage  percentages,  and 
the  vehicle  type.  The  component  damage  is  then  computed  as 
a  function  of  the  overall  firepower  and  mobility  damage 
values.  These  component  damage  percentages  are  used  in  the 
maintenance  model  to  determine  if  a  vehicle  is  to  be  a 
candidate  for  cannibalization. 

Once  the  job  is  completely  characterized  by  Its  assigned 
attributes,  it  enters  the  maintenance  system  at  the  forward 
support  detachment  that  is  in  support  of  the  battalion  that 
owns  the  vehicle. 

C.  PERFORMING  THE  REPAIRS 

The  second  major  submodel  represents  the  actions 
affecting  the  vehicle  once  it  enters  the  maintenance  system 
as  a  job.  Each  job  Is  modelled  explicitly  and  its  progress 
is  monitored  through  the  system  until  it  Is  repaired  and 
returned  to  the  fighting  force.  It  Is  evacuated  outside  the 
brigade  area  to  higher  levels  of  maintenance,  or  it  Is  lost 
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due  to  enemy  activity  affecting  the  maintenance  unit  at 
which  it  is  located. 

As  the  job  proceeds  through  the  system,  various  actions 
are  performed  on  it.  These  actions  include  initial 
inspection,  obtaining  repair  parts  either  through  the  supply 
system  or  through  cannibalization,  transport  to  higher 
levels  of  maintenance,  and  actual  repair  itself.  The  time 
that  each  action  requires  is  drawn  at  random  from  a  beta 
probability  distribution  whose  parameters  are  computed  from 
the  input  data.  These  input  time  values  are  taken  from 
those  supplied  by  the  U.S.Army  Ordnance  Center  and  School 
for  use  in  the  MASC  model.  [l2] 

When  the  job  arrives  at  a  forward  support  detachment,  a 
determination  is  made  as  to  whether  or  not  the  unit  has  the 
capability  to  repair  the  type  of  damage  the  vehicle  has 
sustained.  For  instance.  If  after  enemy  attack,  a 
maintenance  unit  no  longer  has  any  automotive  repairmen.  It 
could  not  repair  a  vehicle  with  mobility  damage.  If  the 
capability  does  not  exist  at  the  unit  to  perform  the 
required  repair,  the  vehicle  is  evacuated  to  the  maintenance 
company.  Otherwise  the  vehicle  undergoes  an  Initial 
I nspection. 

Several  actions  take  place  during  the  initial  inspection 
of  the  vehicle.  First,  the  amount  of  damage  sustained  by 
the  vehicle  is  evaluated  and  a  determination  is  made  as  to 
whether  the  necessary  repairs  are  authorized  at  the  unit. 


Next#  the  availability  of  the  repair  parts  necessary  to 
perform  the  repair  is  checked.  Needed  parts  that  are  not  on 
hand  in  unit  supply  are  either  requisitioned  or  are  obtained 
through  cannibalization.  Finally/  if  the  repair  is 
authorized  and  the  necessary  parts  are  obtained/  a  search  of 
the  unit  is  made  for  a  crew  of  repairmen  to  actually  perform 
the  repair.  If  either  the  requirement  for  parts  or  a  repair 
crew  is  not  met/  the  vehicle  must  wait. 

When  the  requirements  are  met ,  work  begins.  If  parts 
are  obtained  through  cannibalization/  the  substitution  of 
parts  from  the  source  vehicles  is  performed.  After  a  random 
repair  time/  the  repair  is  accomplished  and  the  mobility  or 
firepower  damage  percentage  is  reduced  to  zero,  depending  on 
which  type  of  damage  the  crew  is  able  to  repair.  If  the 
vehicle  has  sustained  both  firepower  and  mobility  damage, 
two  separate  repair  operations  must  be  performed  on  the 
vehicle. 

When  both  the  firepower  and  mobility  damage  are 
repaired,  the  vehicle  is  returned  to  the  fighting  force. 
The  crew  that  has  completed  the  repair  then  attempts  to  find 
another  job  to  do  among  those  waiting. 

There  are  several  instances  where  an  evacuation  of  the 
vehicle  to  a  higher  level  of  maintenance  is  called  for. 
First,  jobs  at  forward  detachments  that  need  parts  are 
evacuated  to  the  maintenance  company  immediately.  Second, 
jobs  that  have  sustained  greater  damage  than  the  maintenance 


unit  can  fix  are  sent  to  higher  levels  of  maintenance. 
Third/  if  a  maintenance  unit  Is  forced  to  move  to  an 
alternate  position/  vehicles  that  are  not  mobile  must  be 
evacuated.  When  a  vehicle  is  evacuated  from  the  maintenance 
company  to  the  division  support  area/  it  is  assumed  to  be 
lost  for  the  duration  of  the  simulation  and  it  Is  no  longer 
considered  in  the  model. 

D.  THE  COMBAT  ENVIRONMENT 

The  third  and  final  submodel  deals  with  the  actions  of 
the  maintenance  units/  particularly  the  forward  detachments/ 
as  the  result  of  enemy  activity  and  the  combat  situation. 
The  model  portrays  the  movement  of  the  detachments  to  new 
positions/  as  well  as  attack  by  the  enemy  on  the 
detachments . 

The  distance  from  the  maintenance  units  to  the  forward 
line  of  troops,  FLOT,  is  monitored  throughout  the 
simulation.  Any  time  this  distance  gets  smaller  than  a  user 
supplied  breakpoint  value,  a  move  of  the  unit  Is  triggered. 
After  a  delay  that  corresponds  to  the  time  needed  for  the 
unit  to  dismantle  the  maintenance  site,  the  detachment 
displaces  to  a  new  position  at  a  user  supplied  speed. 

During  the  move,  and  during  the  time  It  takes  the  unit 
to  resume  its  maintenance  activities,  no  jobs  are  accepted 
for  repair.  Already  accepted  jobs  that  are  mobile, 
accompany  the  unit  to  its  new  position. 


Others  are  either 


evacuated  to  the  maintenance  company  or  are  destroyed  In 
place. 

Upon  arrival  at  the  new  maintenance  site  several  actions 
take  place  before  the  maintenance  mission  begins  again. 
Jobs  that  were  supposed  to  have  been  supplied  with  repair 
parts  through  cannibalization  are  checked  to  be  sure  the 
source  vehicles  have  also  accompanied  the  unit  on  the  move. 
If  the  source  vehicles  are  no  longer  present  and  there  are 
no  other  source  vehicles  to  supply  the  appropriate  parts, 
these  jobs  are  evacuated  to  the  rear.  Then,  the  crews  at  the 
detachment  are  matched  with  jobs  to  do.  This  action 
constitutes  a  reorganization  of  effort  at  the  new  position. 
When  these  actions  are  accomplished,  repair  work  resumes. 

The  other  aspect  of  combat  that  is  portrayed  in  this 
submodel  is  the  attrition  of  the  maintenance  units 
themselves.  The  assumption  is  made  in  the  model  that  the 
probability  of  detection  and  engagement  by  the  enemy  of  a 
maintenance  unit  is  related  to  how  close  the  unit  is  to  the 
forward  line  of  troops,  and  to  how  many  vehicles  are  present 
at  the  unit. 

A  shaping  factor  that  determines  the  degree  of  effect 
the  distance  of  the  unit  to  the  FLOT  has  on  the  probability 
function  is  input  by  the  user  so  that  a  variety  of 
situations  can  be  examined.  For  example,  if  the  user 
desires  to  investigate  the  case  that  the  only  detections 
that  are  made  by  the  enemy  are  visual  from  the  FLOT,  a 


shaping  factor  would  be  selected  that  would  make  the 
probability  of  detection  very  high  over  short  distances,  but 
very  low  over  medium  or  long  distances. 

This  probability  Is  evaluated  for  each  of  the  forward 
detachments  at  the  conclusion  of  each  battle  sequence. 
Whether  or  not  the  detachments  are  actually  attacked  is 
stochastical ly  determined  using  this  evaluated  probability 
value. 

The  further  assumption  is  made  that  the  maintenance 
capability  of  the  unit  is  proportional  to  the  number  of 
personnel  present.  Consequently  only  the  personnel 
casualties  and  the  disruption  of  the  unit  as  the  result  of 
the  attack  are  modelled. 

The  probability  that  an  individual  repairman  will  become 
a  casualty  during  an  attack  is  user  supplied.  Thereby,  the 
user  has  the  ability  to  determine  the  severity  of  the  attack 
expected.  Whether  or  not  an  individual  soldier  becomes  a 
casualty  is  stochastically  determined  using  this  input 
probability  value.  At  the  end  of  the  attack,  a 
reorganization  takes  place,  and  as  many  crews  as  possible 
are  formed  from  the  repairmen  left  alive.  These  functioning 
crews  of  repairmen  are  then  matched  with  jobs  to  be  done, 
and  work  resumes. 

In  the  event  that  either  or  both  of  the  repair 
capabilities,  firepower  or  mobility,  are  lost  by  the  unit, 
jobs  requiring  the  type  of  repair  that  the  unit  can  no 


longer  perform  are  evacuated  to  the  rear.  Also,  any  job 
that  arrives  at  the  unit  needing  that  type  of  repair  is 
evacuated  immediately. 

E.  OUTPUT  FROM  THE  MODEL 

The  output  generated  from  a  typical  replication  of  the 
model  is  shown  in  appendix  0.  This  output  includes  the  time 
values  for  the  various  maintenance  functions  and  the 
corresponding  beta  distribution  parameters  under  the  heading 
of  Input  Time  Parameters.  The  input  values  that  deal  with 
the  battle  and  recovery  operations,  and  the  maintenance 
system  are  also  shown.  For  the  most  part,  the  values  shown 
are  the  ones  that  were  used  to  develop  and  test  the  model. 

The  attributes  of  every  job  that  enters  the  maintenance 
system  are  listed  under  the  heading  Job  List.  The 
attributes  include  the  workorder  number,  the  time  the 
vehicle  entered  the  maintenance  system,  the  vehicle  type, 
the  owning  unit,  whether  the  vehicle  was  damaged  in  combat 
or  was  a  system  failure,  the  mobility  and  firepower  damage 
percentages,  and  the  component  damage  percentages. 

The  results  of  each  battle  sequence  are  also  shown. 
These  include  the  results  of  enemy  attacks  on  the  forward 
detachments,  the  number  of  recovery  vehicles  killed,  and  the 
number  of  blue  and  red  systems  left. 

The  job  list  and  battle  results  are  generated  during  the 
simulation  so  that  the  process  can  be  analyzed  in  detail.  A 
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set  of  summary  statistics  Is  also  generated  at  the  end  of 
each  replication,  as  well  as  a  complete  backlog  listing  of 
vehicles  at  the  various  maintenance  units  and  their  job 
status.  it  should  be  remembered  that  the  movement  of 
vehicles  through  the  maintenance  system  is  a  very  dynamic 
process,  and  this  particular  output  gives  only  an 
instantaneous  vtew  of  the  system.  it  is  included,  however, 
to  give  some  insight  into  the  distribution  of  the  workload 
in  the  system. 

Several  statistics  are  also  generated  that  are  measures 
of  effectiveness  for  the  system.  The  results  of  the 
recovery  operations  are  shown  as  the  numbers  of  vehicles 
recovered  and  the  number  of  vehicles  needing  recovery,  end 
the  average  of  these  values  per  battle  are  also  gtven.  In  a 
similar  fashion  the  results  of  the  maintenance  operations 
are  displayed.  Of  these,  the  most  Important  is  average 
repair  cycle  time,  which  is  a  measure  of  how  long  a  vehicle 
remains  in  the  system  before  it  is  repaired.  Since  the 
purpose  of  the  forward  detachments  is  to  shorten  this  time, 
this  value  can  be  used  to  compare  various  employment  schemes 
for  the  detachments.  It  should  be  noted  that  the  repair 
cycle  time  is  calculated  only  for  the  vehicles  that  are 
returned  to  battle. 

In  an  attempt  to  put  the  functioning  of  the  maintenance 
system  Into  the  context  of  its  effect  on  the  outcome  of  the 
battle,  the  ratio  of  red  casualties  to  blue  casualties  is 
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computed  and  displayed.  The  user  should  remember,  however, 
that  the  combat  model  employed  In  the  maintenance  model  is 
very  simple.  As  such,  this  statistic  should  not  be 
considered  as  anything  but  an  extremely  gross  indicator. 

Finally,  as  a  measure  of  the  survivability  of  the 
maintenance  units,  the  percentage  of  repair  personnel  still 
alive  at  the  end  of  the  simulation  is  given.  This 
percentage  includes  the  repairmen  In  the  maintenance  company 
that  were  not  exposed  to  attack. 


IV 


A.  PROGRAM  PERFORMANCE 

The  maintenance  model  simulation  program  has  shown 
itself  to  be  extremely  fast  running  and  easy  to  use.  It 
compiles  in  less  than  3  minutes  of  central  processing  unit 
time,  and  it  takes  approximately  20  seconds  of  execution 
time  to  complete  one  replication  on  the  IBM  360-67  at  the 
W.R.  Church  Computer  Center  at  the  Naval  Postgraduate 
School.  The  program  uses  approximately  250  kilobytes  of 
core  storage.  Since  only  standard  data  storage  procedures 
with  no  packing  of  words  were  used,  the  model  should  be 
easily  transportable  to  any  Installation  that  has  SIMSCRIPT 
11.5  capabl 1 1 ty. 

The  program  is  completely  documented  In  appendix  C,  and 
Instructions  for  inputing  data  are  included.  The  input 
values  shown  In  the  sample  output  In  appendix  D  are 
representative  of  the  ones  that  were  used  (n  the  design  and 
testing  of  the  program. 

Appendix  A  illustrates  the  type  of  application  in  which 
the  model  could  be  used,  and  data  that  was  actually 
generated  by  the  program  is  presented.  The  distance  of  the 
forward  detachments  to  the  forward  line  of  troops  was  varied 
over  a  range  of  5  to  30  kilometers,  and  the  preliminary 
analysis  of  the  data  seems  to  indicate  that  benefit  is 
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gained  by  "fixing  forward",  but  the  potential  for  losing 
maintenance  assets  to  hostile  action  increases  the  closer 
they  get  to  the  fighting. 

8.  RECOMMENDATIONS  FOR  FUTURE  ENHANCEMENTS 

As  is  the  case  with  all  models,  there  are  several  areas 
in  the  maintenance  model  where  improvements  in  methodology 
could  be  made. 

One  such  area  is  the  assignment  of  the  damage  attributes 
to  the  jobs  entering  the  maintenance  system.  Presently, 
damage  is  determined  stochastically  using  the  uniform 
probability  distribution.  A  refinement  of  the  model  could 
be  made  by  ascertaining  the  distribution  of  damage  sustained 
by  the  combat  vehicles.  A  possible  approach  to  determining 
the  distributions  would  be  to  use  the  Simulation  of  Tactical 
Alternative  Responses  (STAR)  model  to  generate  data  for  this 
purpose.  Cl 33  STAR  has  the  capability  to  determine  the 
impact  locations  of  shots  on  combat  vehicles  and  to  compute 
the  probabilities  of  mobility  and  firepower  damage  as  the 
result  of  the  impact.  These  damage  probabl 1 1 ti es  correspond 
to  the  damage  percentages  used  in  the  maintenance  model. 

Another  shortcoming  of  the  maintenance  model  in  its 
present  form  is  its  inability  to  relate  the  amount  of  damage 
sustained  by  a  vehicle  to  the  time  required  to  repair  it. 

Finally,  the  attrition  model  could  be  improved  by 
assessing  damage  to  the  vehicles  in  the  area  of  the  attack. 


including  the  vehicles  organic  to  the  maintenance  units. 
Attrition  of  the  maintenance  company  should  also  be 
considered  in  the  next  revision  of  the  model. 

The  structure  of  the  programming  is  very  flexible/  and 
consequently/  the  implementation  of  these  model  improvements 
would  not  be  difficult. 


APPENDIX  A 


MODEL  EXERCISE 


A.  INTRODUCTION 

In  this  append! x,  the  results  of  a  model  exercise  are 
shown  and  analyzed.  It  should  be  remembered  that  these 
results  are  just  an  exercise/  and  that  conclusions  cannot 
really  be  drawn  from  them  since  many  of  the  input  variable 
values  that  were  used  to  generate  the  data  were  educated 
guesses.  The  exercise  does  demonstrate  a  potential  model 
appl (cation. 

8.  EXPERIMENTAL  DESIGN 

The  analysis  technique  used  is  a  simple  one  way  analysis 
of  variance.  The  purpose  of  the  technique  Is  to  determine 
if  the  mean  values  of  the  yield  variables  that  result  from 
different  treatments  differ  from  each  other  in  a  statistical 
sense. 

Only  one  of  the  input  variables  was  changed,  that  being 
the  initial  distance  from  the  forward  maintenance 
detachments  to  the  forward  line  of  troops.  Every  time  a 
detachment  moves  to  a  new  location,  the  distance  it  moves 
also  corresponds  to  this  value.  Four  distance  values  are 


used:  5, 

10,  15,  and 

30 

kl lometers. 

The  30 

ki lometer 

di stance 

approximates 

the 

si tuation 

in  which 

all  the 

r- 


/ 
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maintenance  assets 


are  located  at  the  site  of  the 


maintenance  company.  The  others  represent  utilizing  the 
"fix  forward"  concept. 

The  yield  values  are  measures  of  effectiveness  that  are 
computed  and  displayed  by  the  program.  They  are  the  repair 
cycle  time,  the  percentage  of  recovered  vehicles  repaired, 
the  percentage  of  damaged  vehicles  repaired,  and  the 
percentage  of  maintenance  personnel  alive  at  the  end  of  the 
simulation. 

C.  DATA 

The  following  data  have  been  produced  from  10 
replications  of  the  maintenance  model  for  each  of  the  4 
ranges.  The  mean  value  for  each  treatment  is  displayed  below 
the  columns.  The  significance  level  from  the  analysis  of 
variance,  which  is  the  probability  of  obtaining  the  data 
under  the  null  hypothesis  that  all  the  means  are  equal,  is 
also  shown  for  each  set  of  data. 

To  determine  which  of  the  treatment  means  differed,  a 
studentized  range  test  was  performed  on  each  set  of  data. 
Mean  values  marked  with  asterisks  (*)  differed  from  ones  not 
marked  In  the  same  manner. 
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1.  Repair  Cycle  Time  Pat 


Rep 

30  km 

5  km 

10  km 

15  km 

1 

4.49 

4.17 

4.44 

3.97 

2 

3.78 

4.20 

3.97 

3.79 

3 

3.96 

3.37 

3.82 

4.16 

4 

3.71 

3.44 

4.22 

3.91 

5 

3.94 

3.90 

3.99 

4.04 

6 

3.98 

3.94 

3.86 

4.22 

7 

4.64 

3.42 

4.17 

3.71 

8 

4.62 

4.09 

4. 19 

3.75 

9 

3.79 

3.57 

3.  76 

4.47 

10 

4.02 

3.43 

4.27 

3.86 

mean 

4.09 

3.75* 

4.07 

3.99 

sign! 

f  Icance 

level  * 

0.055 

2.  Percentage  of  Recovered  Vehicles  Repaired 


Rep 

3Q_,.krn 

5  km 

;o  km 

15  km 

1 

.383 

.340 

.604 

.531 

2 

.414 

.406 

.632 

.349 

3 

.323 

.570 

.377 

.549 

4 

.413 

.399 

.554 

.462 

5 

.442 

.356 

.604 

.395 

6 

.607 

.436 

.489 

.422 
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7 


603 


230 


543 


392 


8 

.607 

.437 

.495 

.447 

9 

.4  88 

.323 

.417 

.469 

10 

.504 

.446 

.447 

.337 

mean 

.478 

.  394* 

.516 

.435* 

sign! 

f  icance 

level  ■  0. 

0238 

Percentage 

of  Damaged  Vehicles 

Repai 

Rep 

30  km 

5  km 

10  km 

15  km 

1 

.279 

.224 

.352 

.297 

2 

.216 

.276 

.245 

.258 

3 

.226 

.245 

.259 

.299 

4 

.242 

.248 

.359 

.311 

5 

.226 

.208 

.264 

.341 

6 

.279 

.333 

.354 

.331 

7 

.317 

.151 

.356 

.219 

8 

.279 

.330 

.204 

.265 

9 

.243 

.245 

.341 

.331 

10 

,227 

*111 

*121 

,250 

mean 

.253 

.258 

.  304* 

.290 

sign! 

f i cance 

level  ■  0. 

069 
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4.  Percentage  of  Personnel  Alive 


Rep 

30  km 

5  km 

10  km 

15  km 

1 

1.000 

.640 

.  730 

.810 

2 

1.000 

.620 

.870 

.770 

3 

1.000 

.740 

.640 

.700 

4 

1.000 

.670 

.860 

.750 

5 

1.000 

.700 

.910 

.  780 

6 

1.000 

.720 

.810 

.710 

7 

1.000 

.710 

.830 

.900 

8 

1.000 

.  710 

.770 

.760 

9 

1.000 

.750 

.790 

.860 

10 

1.000 

.630 

.810 

.830 

mean 

1.000* 

.689* 

.820 

.787 

sfgnfffcance  level  approximately  0.0 

significance  level  without  considering  the  30  km  group 
Is  also  close  to  0.0 


D.  ANALYSIS 

The  above  analyses  of  variance  show  that  there  are 
significant  differences  in  the  performance  of  the 
maintenance  system  as  the  result  of  different  deployment 
schemes . 

For  the  statisical  tests  of  the  hypotheses  that  the 
means  of  each  treatment  group  were  equal,  a  type  I  error 
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T*"  — 


rate  of  0.1  was  chosen  because  of  the  relatively  small 
sample  size  and  due  to  the  exploratory  nature  of  the 
experiment. 

In  each  case  the  null  hypothesis  that  the  means  were 
equal  was  rejected.  Further  analysis  was  performed  to 
determine  which  of  the  individual  treatments  differed.  For 
the  repair  cycle  time  data#  the  value  for  the  5  kilometer 
distance  was  significantly  shorter  than  those  for  the  30  and 
10  kilometer  distances.  However,  the  repair  cycle  time  only 
considers  the  vehicles  that  were  actually  repaired,  and  the 
percentage  of  vehicles  repaired  that  were  recovered  was 
significantly  higher  at  the  10  kilometer  distance  than  at 
the  5  kilometer  distance.  This  shows  that  the  jobs  repaired 
were  done  faster  at  the  5  kilometer  distance,  but  more  jobs 
were  done  at  the  10  kilometer  distance. 

The  analysis  of  the  casualty  data  showed  that 
significantly  more  maintenance  personnel  became  casualties 
at  the  5  kilometer  distance  than  at  the  10  or  15  kilometer 
distances.  This  result  is  intuitively  appealing,  and  it 
demonstrates  the  price  that  has  to  be  paid  for  the  increased 
responsiveness  of  the  maintenance  system. 

Overall,  the  data  seems  to  point  to  the  10  kilometer 
distance  as  being  the  one  that  produces  the  optimal  mix  of 
responsiveness  and  protection  for  the  maintenance  assets. 
This  distance  would  correspond  to  the  forward  detachments 
being  located  in  the  vicinity  of  the  organizational 
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maintenance  sections/  according  to  present  doctrtne. 

Once  again  the  reader  is  reminded  that  real  conclusions 
cannot  be  drawn  from  this  data  due  to  the  hypothetical 
nature  of  the  input  values  used. 


APPENDIX  B 


DETAILED  METHODOLOGY  OF  THE  MODEL 


A.  GENERAL 

In  this  appendix  a  detailed  description  of  the 
maintenance  model  is  presented  in  a  form  suitable  for  use  by 
analysts  and  programmers.  Additionally/  a  brief  discussion 
of  the  SIMSCRIPT  11.5  programming  language  and  its  use  in 
the  maintenance  model  is  presented. 

B.  THE  USE  OF  SIMSCRIPT  11.5  IN  THE  MODEL 

The  SIMSCRIPT  11.5  programming  language  is  designed  to 
be  used  to  model  discrete  event  simulations.  [10]  The 
language  is  very  readable  in  that  the  command  structure  is 
more  like  English  than  that  of  many  other  languages.  This 
feature  assists  the  user  in  following  the  flow  of  the 
program  more  easily.  The  basic  elements  of  the  language 
correspond  exactly  to  those  of  the  basic  structure  of  the 
event  step  simulation.  They  are  entitles/  attributes/  sets# 
and  events. 

Entities  are  defined  as  program  elements  in  the  modelled 
system.  In  the  maintenance  model  for  example/  vehicles  that 
need  repair/  the  crews  that  do  the  repairs,  and  the  various 
maintenance  units  themselves  are  entities  in  the  system. 
Each  entity  of  a  specific  class  is  differentiated  from  the 
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other  entities  of  that  class  by  the  values  of  its 
attributes.  Ail  of  the  entities  in  the  same  enttty  class 
have  the  same  attribute  names  but  the  values  of  the 
attributes  might  differ.  For  Instance,  In  the  maintenance 
model,  each  job  entity  corresponds  to  a  vehicle.  The  type 
of  vehicle  it  is,  the  amount  of  damage  it  has  sustained,  and 
the  unit  that  it  came  from  are  all  attributes  of  the  job. 
Attributes  can  have  real,  integer,  or  alphanumeric  values. 

A  set  is  a  group  of  entities  with  some  common  property. 
The  maintenance  model  uses  this  programming  feature  in  two 
ways.  The  first  is  to  denote  membership  of  maintenance 
crews  in  the  various  maintenance  units.  Second,  the  jobs 
that  need  to  be  done  at  a  maintenance  unit  are  arranged  into 
sets  according  to  their  shop  status.  For  example  all  the 
vehicles  that  are  waiting  for  repair  parts  belong  to  one 
set. 

An  event  in  SIMSCRIPT  is  an  occurrence  which  takes  place 
at  a  specific  time,  and  results  in  changing  the  values  of 
entity  attributes,  removing  or  adding  entities  to  sets, 
creating  or  destroying  entities,  and/or  scheduling  other 
events  to  take  place  at  a  future  time.  An  example  of  an 
event  in  the  maintenance  model  is  the  arrival  of  a  job  at  a 
maintenance  unit.  When  this  event  occurs,  the  job  is  either 
inspected  immediately,  in  which  case  a  diagnosis  event  is 
scheduled  for  the  job,  or  the  inspection  Is  delayed  and  the 
job  is  added  to  the  waiting  inspection  set.  Events  take 
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place  instantaneously  and  do  not  consume  simulated  time. 

These  data  structures  greatly  simplify  the  explicit 
modelling  of  the  progress  of  each  job  through  the 
maintenance  system.  The  set,  entity,  and  attribute  structure 
used  in  the  maintenance  model  is  given  In  appendix  C. 

C.  METHOOOLOGY 

1.  Background 

The  model  of  maintenance  in  the  brigade  area 
presented  here  is  a  stochastic  simulation.  Only  damage  to 
combat  vehicles,  tanks  and  armored  personnel  carriers,  is 
considered.  The  type  of  damage  played  is  divided  Into  two 
categories,  firepower  and  mobility,  and  the  repairs  of  these 
types  of  damage  are  done  separately. 

The  tactics  used  by  the  supported  battalions  are 
specified  by  the  user.  There  are  two  options.  The  first 
is  an  effort  to  trade  space  for  time,  where  the  brigade  is 
divided  into  two  teams  that  alternately  drop  back  to  defend 
a  succession  of  positions.  The  maintenance  system  is 
heavily  taxed  by  this  tactic  since  there  is  frequent 
requirement  for  the  maintenance  units  to  move  to  alternate 
positions.  The  second  option  is  a  stand  and  fight  option. 

The  simulation  is  ended  when  the  blue  force  is 
attrlted  to  25  percent  of  its  original  force  level.  This 
stopping  rule  is  written  into  the  program  and  would  require 
only  a  minor  code  modification  to  change. 
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Since  this  model  is  a  stochastic  simulation, 
replication  of  each  experiment  several  times  is  desirable 
and  necessary  for  the  ‘purpose  of  p4*rforml.ng  statistical 
analyses  on  the  outputs.  To  reduce  the  difficulty  of 
performing  repl i cat  ions,  a  loop  is  included  in  the  program 
so  that  as  many  replications  as  desired  may  be  made  In  the 
same  computer  run. 

2.  input  to  the  Maintenance  System 

a.  Generating  Combat  Damaged  Vehicles 

The  first  major  submodel  represents  the  actual 
destruction  of  vehicles  in  combat  and  the  recovery  and 
evacuation  of  the  damaged  vehicles  for  entry  into  the 
maintenance  system.  This  model  is  the  SIMSCRIPT  11.5 
implementat ion  of  the  Parametric  Analysis  of  Recovery  and 
Evacuation  of  Tracked  vehicles  model,  PARET,  that  was 
developed  by  MAJ  A.F.  Affeldt  to  investigate  battlefield 
recovery  tactics  and  to  determine  heavy  equipment  transport, 
HET,  requirements  in  the  maneuver  brigade.  [ill  The  HET 
requirement  routines  were  not  needed  for  use  with  the 
maintenance  model  and  were  therefore  excluded. 

The  PARET  model  plays  a  series  of  battles 
corresponding  to  the  succession  of  red  echelons  attacking 
the  blue  force.  In  each  of  these  battles,  a  BATTLE  event  is 
called  by  the  program.  Attrition  of  both  blue  and  red  forces 
is  computed  on  the  basis  of  a  homogeneous  force,  fixed 
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breakpoint  Lanchester  type  mode),  under  the  assumption  that 
all  the  armored  vehicles  on  the  battlefield  are  "tank 
killers".  This  model  is  described  in  detail  in  ref. 14.  The 
assumption  is  made  that  the  ratio  of  attrition  coefficients 
is  equal  to  the  force  ratio  at  the  start  of  each  battle.  The 
Initial  exchange  ratio  as  well  as  the  initial  force  levels 
for  red  and  blue  are  input  by  the  user,  and  an  attrition 
constant  is  computed  to  relate  exchange  ratios  in  subsequent 
battles  to  the  number  of  blue  systems  alive.  This  attrition 
constant  is  computed  by  solving  the  equation: 

X*exp( “(ATT. CONST) ( BZERO) )  (1) 

for  ATT. CONST  where  X  Is  the  initial  exchange  ratio  and 
BZERO  is  the  initial  blue  force  level.  Exchange  ratios  in 
subsequent  battles  are  computed  by  substituting  the  number 
of  blue  systems  alive  for  BZERO  in  equation  (1). 

The  actual  battle  time  Is  a  function  of  the 
exchange  ratio,  the  force  ratio  (red/blue)  at  the  start  of 
the  battle,  and  the  breakpoint  which  is  the  hypothesized 
attrition  percentage  that  will  force  red  into  a  defensive 
position.  The  value  of  this  breakpoint  is  supplied  by  the 
user.  The  battle  time  is  computed  as: 

Cl-X**(-.5)  (2a) 

C2»ln((“Y(BP)+((l/X)“(Y**2)(l-BP)**2)**.5)/(X**(“.5)“Y))  (2b) 

TB«(C1)(C2)  <2) 

where  TB  is  the  battle  time,  Y  I s  the  red  to  blue  force 
ratio,  BP  Is  the  breakpoint,  and  X  Is  the  exchange  ratio. 


After  red  assumes  Its  hasty  defensive  position, 
time  elapses  until  the  next  echelon  closes,  reorganization 
takes  place,  and  the  next  battle  begins.  This  time  for 
rollup  and  restart  is  a  function  of  the  echelon  spacing,  a 
user  input,  and  the  interdicted  rate  of  advance,  computed  as 
a  product  of  the  user  input  nominal  rate  of  advance  and  a 
stochastically  generated  interdiction  level.  The 
interdiction  level  is  allowed  to  vary  uniformly  between  0 
and  50  percent.  So  time  for  rollup  and  restart  is  computed 
as : 

TRR* (SPACE. ECH/RI )+TB+U(a,b)  (3) 

where  TRR  is  the  time  for  rollup  and  restart,  TB  is  battle 
time,  SPACE. ECH  is  the  distance  between  red  echelons,  R  is 
the  nominal  rate  of  advance  of  the  next  red  echelon,  and  1 
is  the  Interdiction  level.  Notice  that  a  uniform  random 
number  Is  drawn  to  represent  the  time  needed  for 
reorganization  before  the  battle  begins  again.  The  limits 
on  this  random  number,  a  and  b,  are  5  and  10  minutes  of 
delay  time  respectively. 

The  time  available  for  recovery  is  then  computed 
as  the  sum  of  the  battle  time  and  the  rollup  and  restart 
time  less  a  correction  factor  which  accounts  for  the  time 
between  the  start  of  the  battle  and  the  first  red  casualty. 
So  the  recovery  time  Is  computed  thus: 

REC.TIME-TB+TRR+C  (4) 

where  REC.TIME  is  the  recovery  time,  TRR  is  the  time  for 
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rollup  and  restart/  and  C  Is  the  correction  factor 


Since  the  proportion  of  damaged  vehicles  that  can 
be  recovered  is  postulated  In  the  PARET  model  to  be  equal  to 
the  ratio  of  the  time  available  to  perform  recoveries/ 
REC.TIME/  to  the  time  required  to  recover  all  damaged 
vehicles/  the  necessity  arises  to  determine  the  number  of 
vehicles  requiring  recovery/  and  the  time  needed  to 
accomplish  all  these  recoveries. 

Red  survivors  can  be  computed  as: 

R.AU  VE-BP(RZERO)  (5) 

where  R. ALIVE  is  the  number  of  red  survivors/  BP  is  the 
breakpoint  for  the  red  forces/  and  RZERO  is  the  red  force 
level  at  the  start  of  the  battle. 

Using  this  value,  the  blue  survivors  are 
calculated  as: 

B . AL I VE*RZERO- (RZERO-R. ALI VE) /X  (6) 

where  B. ALIVE  is  the  number  of  blue  survivors/  BZERO  is  the 
blue  force  level  at  the  start  of  the  battle,  and  X  is  the 
exchange  ratio.  The  casualties  are  easily  computed  as  the 
difference  between  BZERO  and  B. ALIVE. 

Not  all  vehicles  are  recoverable  and  some  are 
self  or  like  recoverable.  The  percentages  of  unrecoverable 
and  self-like  recovered  vehicles  are  user  inputs.  The 
number  of  vehicles  needing  recovery  is  computed  as: 

NR*( 1-UNREC-SELF. LI KE) C BZERO-B . ALI VE)  (7) 

where  NR  is  the  number  needing  recovery,  UNREC  is  the 
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percentage  of  unrecoverable  vehicles,  and  SELF. LIKE  Is  the 
percentage  of  self  or  like  recovered  vehicles. 

The  time  needed  to  recover  all  the  vehicles 
needing  recovery,  TR,  is  a  function  of  the  number  needing 
recovery,  NR,  the  number  of  recovery  vehicles  available,  NA, 
the  time  to  hookup  at  the  recovery  site,  TH,  the  time  to 
travel  to  the  recovery  site,  TG,  and  the  time  needed  to 
travel  from  the  recovery  site  to  the  maintenance  collection 
point,  TC.  The  user  must  supply  both  the  loaded  and 
unloaded  recovery  vehicle  speeds,  CCSL  and  CCSU 

respectively,  so  that  TG  and  TC  can  be  computed.  TG  and  TC 
are  calculated  as  the  ratio  of  distance  to  be  moved  to 
speed,  modified  by  a  d i sor i entat Ion  factor,  D,  which 
represents  the  tendency  for  recovery  vehicles  to  become  lost 
on  the  battlefield.  This  factor  is  a  percentage  of  time 
added  to  both  travel  times  and  is  also  supplied  by  the  user. 
TC,  TG,  and  TR  can  be  calculated  as  follows: 

TC»MCPD(1+D)/CCSL  (8) 

TG«MCPD(1*D)/CCSU  (9) 

TR"(NR/NA) (TG+TH+TC)  (10) 

where  MCPD  is  the  distance  from  the  recovery  site  to  the 
maintenance  collection  point. 

The  number  of  vehicles  for  which  recovery  Is 
attempted,  RECKS,  is  then  computed  as: 

RECKS-NR(REC.TIME/TR)  (11) 

This  procedure  is  repeated  for  every  simulated 
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battle. 


b.  Generating  System  Failures 

The  PARET  model  as  originally  designed  did  not 
consider  ordinary  breakdowns  of  equipment  due  to  use.  Since 
these  system  failures  comprise  a  significant  portion  of  the 
workload  of  the  maintenance  system,  they  are  Included  in  the 
maintenance  model. 

Prior  to  the  start  of  the  simulation  in  the  main 
program,  a  FAILURE  event  is  scheduled  for  each  piece  of  blue 
equipment,  independent  of  the  battles.  The  times  of  the 
system  failures  are  assumed  to  be  exponentially  distributed, 
and  the  mean  time  to  failure  for  each  item  is  a  user  input. 
This  mean  time  to  failure  is  in  operating  hours,  and  the 
proportion  of  time  that  the  equipment  operates  is  divided 
into  the  mean  time  to  failure  value  to  convert  it  to  real 
time.  This  proportion  Is  also  a  user  input. 

During  the  time  that  preceeds  the  first 
engagement,  the  only  workload  generated  is  from  these  system 
failures.  Since  the  model  assumes  100%  availability  of 
equipment  at  the  start  of  the  simulation,  the  further 
assumption  is  made  that  the  number  of  recovery  vehicles  in 
the  supported  units  will  be  more  than  adequate  to  handle  the 
evacuation  requirements  before  the  actual  fighting  starts. 
Therefore  the  actual  recoveries  of  system  failures  are  not 
explicitly  modelled,  and  they  arrive  at  the  maintenance  unit 
after  a  short  delay  of  beween  two  and  three  hours.  Once  the 
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battle  sequence  begins,  however,  the  system  failures  that 
occur  are  added  to  the  number  of  casualties  assessed  in  the 


battle  and  the  recovery  of  the  system  failures  proceeds  in 
the  same  way  as  the  recovery  of  combat  damaged  vehicles. 

The  FAILURE  event  also  determines  the  unit  that 
the  vehicle  comes  from  and  reduces  the  number  of  combatants 
in  that  unit.  To  avoid  system  failures  on  vehicles  that 
have  already  been  damaged  in  combat,  the  proportion  of  blue 
vehicles  alive  is  computed  in  the  FAILURE  event  and  a  random 
comparitor  is  drawn  and  compared  with  the  proportion.  If 
the  random  number  is  larger  than  the  proportion.  It  Is 
assumed  that  the  vehicle  has  already  been  combat  damaged  and 
the  system  failure  Is  ignored. 

c.  Making  Recoveries 

Once  the  total  number  of  vehicles  that  need 
recovery,  both  system  failures  and  combat  damaged  vehicles, 
is  known  in  a  specific  BATTLE  event,  a  recovery  mission  is 
attempted  for  each.  At  each  attempt,  the  recovery  vehicle 
and  the  vehicle  to  be  recovered  are  vulnerable  to  attack. 
The  assumption  Is  made  that  the  recovery  vehicle  will  be 
vulnerable  to  artillery  attack  during  the  trips  to  and  from 
the  battle  site,  and  to  direct  fire  only  at  the  battle  site. 
The  probability  of  kill  is  postulated  to  be  a  function  of 
the  times  that  the  recovery  vehicle  is  exposed  in  each  of 
these  phases  of  its  mission.  These  exposure  times  are 
adjusted  to  take  into  account  the  various  situational 
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factors  that  affect  the  probability  of  kill  of  the  recovery 
veh I  cl e. 

During  the  movement  phases  of  the  mission  to  and 
from  the  maintenance  collection  point,  the  exposure  times 
are  TC  and  TG  as  previously  computed.  The  probability  of 
kill  is  calculated  as  a  function  of  these  times,  and  the 
developer  of  the  PARET  model  postulated  the  following 
relation: 

PK«tangent( time)  (12) 

This  relation  gives  a  monotone  increasing  function  in  time, 
since  time  is  measured  in  hours  and  the  tangent  is  computed 
as  if  time  is  measured  in  degrees.  A  random  comparitor  is 
then  drawn  to  determine  if  the  recovery  mission  is 
unsuccessful  due  to  interdiction  during  the  movement  phases. 

Similarly,  the  adjusted  exposure  time  on  the 
battle  site  during  the  hookup  is  assumed  to  be  a  function  of 
the  hookup  time,  TH,  the  reciprocal  of  the  red  target 
priority  of  a  recovery  vehicle,  Z,  the  probability  of 
incorrect  identification  of  the  recovery  vehicle,  P,  and  the 
probability  of  line  of  sight,  L,  which  are  all  supplied  by 
the  user,  as  well  as  a  randomly  drawn  probability  of 
supresslon,  S.  The  adjusted  exposure  time,  TE.HOOK,  is 
computed  as: 

TE.HOOK-KSXZXPXTH)  (13) 

This  value  is  then  used  to  calculate  the  probability  of  kill 
using  the  following  hypothesized  relation: 
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PK«ABS( 1/1 n(TE.HOOK) )  (14) 

Once  again  a  random  comparltor  Is  drawn  and  compared  to  the 
value  of  the  probability  of  kill  to  determine  the  success  of 
the  mission. 

When  a  recovery  mission  is  determined  to  be  a 
failure/  the  model  assumes  that  both  the  recovery  vehicle 
and  the  vehicle  to  be  recovered  are  catastrophically  killed 
and  are  lost  for  the  rest  of  the  simulation, 
d.  Determining  the  Job  Attributes 

At  the  conclusion  of  each  successful  recovery 
mission/  a  BREAK  event  is  scheduled  to  occur  at  a  uniformly 
distributed  time  during  the  available  recovery  time.  It  Is 
in  the  BREAK  event  that  the  various  attributes  of  the 

recovered  vehicle  are  determined. 

After  a  job  entity  Is  created  and  a  workorder 
number  Is  assigned,  a  random  comparltor  Is  drawn  and 
compared  to  the  proportion  of  tanks  in  the  force  to 
determine  whether  the  vehicle  type  is  a  tank  or  an  armored 
personnel  carrier.  The  proportion  of  tanks  in  the  force  Is 
user  suppl fed. 

The  damage  sustained  by  the  vehicle  is  then 
stochastically  determined.  The  damage  to  the  vehicle  is 
expressed  as  a  number  between  0  and  1,  and  the  number  is 
interpreted  to  be  the  percentage  of  major  subsystems  that 
have  been  affected.  As  such,  the  range  of  the  possible 
damage  that  can  be  randomly  drawn  Is  dependent  on  the 


vehicle  type  and  on  how  the  vehicle  was  damaged.  A  system 
failure/  for  instance/  would  probably  not  be  as  badly 
damaged  as  a  vehicle  damaged  in  combat. 


There  are  two  of  these  damage  proportion  values, 
corresponding  to  the  mobility  functions  of  the  vehicle 
(MOB. DAM),  and  to  the  firepower  functions  of  the  vehicle 
(FP.DAM).  These  are  considered  separately  in  the  repair  of 
the  vehicle. 

In  each  BREAK  event,  a  damage  assessment  routine, 
ASSESS. DAM  is  called  to  determine  the  distribution  of  the 
damage  in  each  major  subsystem  of  the  vehicle.  The 
subsystem  damage  values  are  also  expressed  in  terms  of  a 
proportion  and  these  values  correspond  to  the  percentage  of 
parts  that  have  been  rendered  unserviceable  in  the 
subsystem.  The  values  are  used  in  the  cannibalization 
routines  and  are  stored  in  a  two  dimensional  array,  DAM. REC, 
and  are  indexed  by  workorder  number.  The  major  subsystems 
for  each  vehicle  with  type  TANK  are: 

1  Engine 

2  Drive  Train  (transmission) 

3  Cooling  System 

4  Fuel  System 

5  Electrical  System 

6  Track  and  Suspension 

7  Fire  Control  -  Optics 

8  Fire  Control  -  Ballistic  Computer  System 


9  Turret 

10  Hydraul i cs 

11  Armament 

Notice  that  subsystems  1-6  are  mobility  related  and  would 
therefore  be  repaired  by  an  automotive  crew,  and  subsystems 
7-11  are  armament  related  and  would  be  repaired  by  an 
armament  crew. 

Similarly,  the  major  subsystems  for  vehicles 
wi th  type  APC  are: 

1  Engine 

2  Drive  Train 

3  Fuel  System 

4  Cooling  System 

5  Electrical  System 

6  Track  and  Suspension 

7  Fire  Control 

8  Hydraulics  -  Cupola 

9  Armament 

For  this  vehicle  type,  the  mobility  subsystems  are  1-6,  and 
the  firepower  subsystems  are  7-9.  Notice  that  the  total 
number  of  subsystems  Is  different  depending  on  the  vehicle 
type. 

A  line  of  output  is  generated  for  every  job 
under  the  heading  JOB  LIST.  The  line  includes  the  workorder 
number,  the  time  the  vehicle  entered  the  maintenance  system. 


the  owning  unit,  the  vehicle  type,  the  firepower  and 


mobility  damage/  and  the  component  damage  values. 

At  the  conclusion  of  the  BREAK  event/  the  job  is 
scheduled  for  arrival  at  the  forward  maintenance  detachment 
that  is  in  support  of  the  battalion  that  owns  the  vehicle, 
d.  The  Daylight  Event 

The  recovery  of  combat  damaged  vehicles  on  the 
battlefield  is  greatly  affected  by  darkness,  and  as  such, 
event  DAYLIGHT  is  included  in  the  model  to  represent  the 
effects . 

The  assumptions  are  made  that  the  first  battle 
begins  at  dawn  and  that  there  are  15  hours  of  daylight 
followed  by  nine  hours  of  darkness  each  day.  When  darkness 
falls,  several  of  the  parameters  are  changed  to  reflect  the 
increased  difficulty  of  night  recovery  operations.  These 
parameters  include  the  cross  country  speeds  of  the  recovery 
vehicles,  the  average  hookup  time  at  the  recovery  site,  and 
the  disorientation  factor. 

Some  other  parameters  that  relate  to  the 
movement  of  the  maintenance  units  themselves  are  also 
adjusted  for  the  effects  of  darkness.  These  are  the  setup 
time  after  a  move  to  a  new  position,  and  convoy  movement 
speeds. 

The  magnitudes  of  the  changes  to  the  parameters 
in  this  event  routine  are  written  into  the  program,  and 
changes  would  require  only  minor  alteration  of  the  coding. 
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a.  General 

The  second  major  submodel  portrays  the  actions 
affecting  the  damaged  vehicles  once  they  enter  the 
maintenance  system  as  jobs.  Each  job  is  a  separate  and 
distinct  entity/  and  its  progress  through  the  system  is 
modelled  explicitly  until  the  job  is  completed  and  returned 
to  the  combat  force,  it  is  evacuated  to  a  higher  level  of 
maintenance  outside  the  brigade  area,  or  it  is  lost  due  to 
enemy  activity  affecting  the  maintenance  units. 

As  the  job  proceeds  through  the  system,  various 
maintenance  functions  are  performed  on  it.  These  functions 
include  Initial  Inspection,  ordering  and  waiting  for  the 
repair  parts  needed  to  accomplish  repair,  repair  of  the 
armament  and  automotive  functions  of  the  vehicle,  and 
transport  to  higher  levels  of  the  maintenance  system. 

The  time  that  each  function  requires  is  drawn 
from  a  beta  distribution,  the  parameters  of  which  are 
specified  in  the  input  data.  For  each  function,  the  minimum 
possible  time  required  to  perform  the  action,  the  maximum 
time  required,  and  the  average  time  are  entered  and  stored 
in  the  T. ACTION  array. 

Since  the  range  of  the  beta  distribution  is  from 
0  to  1,  these  values  must  be  scaled  down  to  fit  that  range 
so  that  the  appropriate  beta  parameters  can  be  obtained. 
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This  procedure  for  scaling  down  and  fitting  the  beta 
distribution  is  accomplished  in  the  COMP. TIMES  routine.  The 
parameters  once  computed  are  stored  in  the  A  array  and  are 
output  along  with  the  correspond! ng  T. ACTION  vector  and  the 
index  number  of  the  particular  maintenance  action.  The 
index  numbers  and  the  maintenance  functions  that  correspond 
to  them  are: 

1  -  inspection  time  at  the  forward  detachments 

2  -  inspection  time  at  the  maintenance  company 

3  -  repair  time  for  automotive  jobs 

4  -  repair  time  for  armament  jobs 

5  -  waiting  time  for  repair  parts  delivery 

6  -  movement  time  from  forward  detachment  to 

maintenance  company 

7  -  waiting  time  for  evacuation  from  forward  detachment 

to  company 

8  -  waiting  time  for  evacuation  from  company  to 

division  rear 

The  actual  times  that  are  used  in  the  model  are 
those  provided  by  the  U.S.  Army  Ordnance  Center  and  School. 
[121  The  maintenance  times  given  for  repair  of  the  tanks 
are  those  postulated  for  the  M60A1  tank  and  not  for  the  XM1. 
Similarly  the  repair  times  for  the  armored  personnel  carrier 
are  based  on  data  for  the  M113  series  and  not  the  new 
Infantry  Fighting  Vehicle.  The  assumption  is  made  however, 
that  the  values  are  close  enough  to  be  useful.  Since  these 


values  are  input  as  data,  it  would  be  very  easy  to  change 
them  if  better  ones  become  available. 

Each  time  an  event  is  scheduled  and  a  time  is 
drawn  from  the  appropriate  beta  distribution,  the  number 
drawn  is  scaled  back  up  to  real  time  scale  corresponding  to 
that  given  in  the  T. ACTION  vector. 

When  a  beta  distributed  random  number  Is 
generated,  SIMSCRIPT  uses  its  internal  gamma  random  number 
generator.  Occasionally,  the  parameters  for  the  gamma 
random  number  generator  are  such  that,  although  they  are 
mathematically  and  theoretically  correct  as  parameters  of 
the  gamma  distribution,  the  gamma  generator  gives  an  error 
message  stating  that  the  parameters  used  are  incorrect. 
Consequently  the  program  terminates.  For  this  reason  a  more 
robust  gamma  random  number  generator  routine,  GAMMA. F,  is 
included  in  the  program.  This  routine  overrides  the 
internal  gamma  routine. 

b.  Arrival  and  Initial  Inspection 

At  the  conclusion  of  the  BREAK  event,  once  the 
various  attributes  describing  the  job  are  determined,  an 
ARRIVAL  event  is  scheduled  immediately  for  the  job,  causing 
It  to  enter  the  maintenance  system  at  the  forward  detachment 
supporting  the  battalion  that  owns  the  vehicle. 

In  this  ARRIVAL  event  two  determinations  are 
made.  First,  the  remaining  capability  of  the  unit  to 
perform  the  needed  repair  is  evaluated.  If,  after  enemy 


attack,  no  automotive  repairmen  are  available/  it  would  be 
impossible  to  repair  a  vehicle  with  mobility  damage. 
Consequently  the  vehicle  is  evacuated  to  a  higher 
maintenance  level.  A  MOVE. REAR  event  is  scheduled  to 
accomplish  the  evacuation  and  the  job  is  filed  in  the 
waiting  transport  queue/  WT. QUEUE. 

Second/  if  the  capability  to  do  the  type  of 
repair  required  for  the  vehicle  is  present/  the  availability 
of  an  Inspector  to  perform  the  initial  Inspection  Is 
determined.  If  he  is  available/  a  DIAGNOSIS  event  is 
scheduled.  Otherwise  the  vehicle  must  wait  for  inspection 
in  the  Wl .QUEUE. 

The  actions  of  the  inspector  are  portrayed  in 
the  DIAGNOSIS  event.  These  actions  Include  determination  of 
parts  availability  either  from  repair  parts  supply  or  by 
cannibalization/  the  assignment  of  a  crew  of  mechanics  to 
perform  the  repair  if  the  parts  are  available/  and 
determination  of  whether  or  not  the  repair  can  be 
accomplished  at  that  maintenance  level. 

Parts  availability  is  determined  stochastically/ 
and  a  random  comparltor  is  drawn  and  gamed  against  the  user 
input  value  of  the  probability  that  the  unit  In  question  has 
the  parts. 

If  parts  are  not  available  through  the  supply 
system,  a  check  of  the  other  vehicles  present  at  the 
maintenance  site  Is  made  to  determine  whether  parts  can  be 
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obtained  by  cannibalization. 

In  the  event  that  parts  are  available  from 
either  source,  a  search  of  the  unit  is  made  to  find  an  Idle 
crew  to  perform  the  repair.  Since  firepower  and  mobility 
damage  must  be  repaired  by  separate  crews,  the  crews  are 
located  by  their  assigned  mission.  When  the  appropriate 
personnel  are  found,  the  job  is  filed  either  in  the  ARMAMENT 
set  or  the  AUTOMOTIVE  set  and  a  REPAIR  event  Is  scheduled. 
If  no  crew  with  the  correct  mission  type  is  located,  the  job 
Is  filed  in  the  waiting  shop  set  (WS. QUEUE). 

If  parts  are  not  available  and  the  vehicle  is  at 
a  forward  detachment,  the  job  is  evacuated  to  the 
maintenance  company  and  a  MOVE. REAR  event  is  scheduled.  The 
assumption  is  made  that  the  time  required  for  parts  to  be 
delivered  to  the  forward  detachments  would  be  too  long 
considering  the  need  for  the  detachments  to  remain  mobile, 
and  considering  the  short  duration  of  their  stay  at  any  one 
place. 

At  the  maintenance  company,  if  the  need  arises, 
parts  are  ordered  and  a  PARTS. COME  event  is  scheduled.  The 
job  Is  then  filed  in  the  WP. QUEUE  set  corresponding  to  the 
group  of  vehicles  that  are  in  waiting  parts  status. 

Finally,  The  waiting  Inspection  set  is  checked 
for  any  other  vehicles  that  need  to  be  Inspected.  If  there 
are  any  there,  another  DIAGNOSIS  event  Is  scheduled  and  the 
appropriate  job  Is  removed  from  the  waiting  inspection  set. 
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c.  Obtaining  Repair  Parts 


There  are  two  methods  of  obtaining  the  repair 
parts  necessary  to  perform  repairs,  through  the  supply 
system  and  through  cannibalization. 

Parts  delivered  through  the  supply  system  are 
portrayed  In  the  PARTS. COME  event  whtch  Is  scheduled  In  the 
DIAGNOSIS  event.  The  assumption  Is  made  that  a  job  will  not 
be  worked  on  unless  all  of  the  repair  parts  necessary  are 
present.  This  assumption  precludes  repairing  mobility 
damage  while  parts  are  still  needed  to  repair  firepower 
damage.  As  such,  when  a  PARTS. COME  event  Is  executed  and 
the  parts  for  a  job  arrive  at  the  maintenance  facility, 
mobility  and  firepower  damage  are  again  considered 

separately  In  locating  crews  to  perform  the  repairs.  The 
procedure  used  to  find  crews  is  Identical  to  that  in  event 
DIAGNOSIS.  Repairs  are  scheduled  to  occur  and  the  job  is 
filed  in  the  AUTOMOTIVE  set  or  the  ARMAMENT  set  as 
appropriate.  If  no  crews  are  available  the  job  is  filed  in 
the  WS. QUEUE  signifying  that  it  is  waiting  shop, 
d.  Cannibalization 

The  other  source  of  repair  parts  is 
cannibalization.  There  are  two  Instances  In  the  process 
when  cannl bal Izat ion  Is  considered  for  a  vehicle.  First,  In 
the  DIAGNOSIS  event,  if  the  job  is  determined  to  need  parts 
that  are  not  present  in  the  unit  supply,  the  other  vehicles 
at  the  unit  for  repair  are  checked  as  possible  sources. 

66 


1 


✓ 


Next,  at  the  conclusion  of  a  REPAIR  event,  if  no  other  jobs 
are  in  a  waiting  shop  staus,  a  check  is  made  of  all  the  jobs 
that  are  waiting  for  parts  or  waiting  for  transport  to  a 
higher  echelon  of  maintenance  to  see  if  parts  can  be 
obtained  to  perform  a  repair. 

The  only  vehicles  considered  as  sources  for 
parts  are  those  either  waiting  for  evacuation  to  the  rear  or 
those  waiting  for  parts.  All  of  the  other  vehicles  present 
at  the  maintenance  site  are  either  waiting  for  repair  or  are 
in  the  process  of  being  repaired,  and  no  purpose  would  be 
served  by  removing  parts  from  them.  The  jobs  waiting  for 
evacuation  cannot  be  repaired  at  the  unit  in  question,  so 
nothing  is  lost  by  taking  the  serviceable  parts  from  them. 
The  jobs  waiting  for  parts  to  arrive  cannot  be  worked  on 
until  the  parts  arrive,  so  removing  parts  from  them  merely 
increases  their  wait. 

The  assumption  is  made  that  the  inspectors  in 
the  maintenance  unit  would  know  how  each  vehicle  was  damaged 
and  what  parts  are  serviceable  and  available  for 
cannibalization.  Therefore,  no  time  is  assessed  for  the 
parts  availability  determination. 

When  the  attributes  of  each  job  were  first 
determined  in  the  BREAK  event,  the  damage  assessment 
routine,  ASSESS. DAM,  was  called  to  stochastically  determine 
the  proportion  of  unserviceable  parts  in  each  major 
subsystem  of  the  vehicle.  These  proportions  are  used  in  the 


cannibalization  routine/  CANNIBAL/  to  compare  parts 
requirements  with  availability  for  each  subsystem  of  the 
vehicle. 

When  a  job  is  considered  for  cannibalization/ 
the  CANNIBAL  routine  checks  each  subsystem  of  the  job 
against  those  in  waiting  transport  status,  WT. QUEUE,  and 
then  against  those  in  waiting  parts  status,  WP. QUEUE,  until 
the  supply  of  vehicles  has  been  exhausted,  or  until  the 
parts  requirements  has  been  met.  This  checking  procedure 
entails  several  steps.  First,  the  particular  subsystem  of 
the  job  is  examined  to  see  if  parts  are  needed.  Then,  if  a 
requirement  exists,  possible  source  vehicles  are  examined  to 
see  if  the  proportion  of  parts  available  exceeds  the 
proportion  needed.  If  not,  the  needed  parts  are  considered 
not  available  on  that  potential  source  vehicle.  If  so,  a 
random  comparitor  is  drawn  and  compared  to  the  difference 
between  the  proportion  of  parts  available  on  the  source 
vehicle,  and  the  proportion  of  parts  needed  for  the  job. 
This  random  comparison  procedure  represents  a  check  to  see 
if  the  parts  needed  match  the  parts  available  on  the  source 
veh  i  cl  e . 

When  parts  are  located,  the  entity  number  of  the 
source  vehicle  is  recorded  in  a  two  dimensional  array, 
CAN.REC,  which  is  a  list  of  the  source  vehicles  for  each 
subsystem  of  each  job  that  is  to  be  supplied  by 
cannibal i zation. 
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The  source  vehicles  that  are  waiting  transport 
to  the  rear  have  their  evacuations  cancel  led,  and  they  are 
not  rescheduled  until  the  parts  are  removed  in  the 
SUBSTITUTION  routine.  If  the  source  vehicle  is  waiting  for 
parts,  its  PARTS. COME  event  Is  cancelled  and  a  new  one  Is 
scheduled  either  at  the  time  that  the  parts  to  be  removed 
arrive,  or  at  the  the  time  the  original  parts  were  to 
arrive,  whichever  is  later. 

Jobs  for  which  parts  are  located  through  the 
cannibalization  routine  are  then  placed  In  a  waiting  shop 
status.  When  a  repair  is  finally  scheduled  for  the  job,  its 
non-zero  IN. CAN  attribute  will  indicate  that  a  substitution 
of  parts  from  the  source  vehicles  Is  required  before  the 
repair  can  be  made.  The  IN. CAN  attribute  corresponds  to  a 
row  of  the  CAN.REC  array  which  contains  the  list  of  source 
veh 1  cl es  . 

e.  Performing  the  Repair 

The  actual  repair  of  the  vehicle  is  accomplished 
In  the  REPAIR  event.  Each  repair  has  a  specified  job  and  a 
specified  crew.  The  crew  will  have  the  capability  to  repair 
either  firepower  damage  or  mobility  damage  depending  on  its 
assigned  mission.  Consequently,  a  vehicle  that  has 
sustained  both  firepower  and  mobility  damage  must  have  two 
REPAIR  events  scheduled  for  It. 

If  the  repair  parts  for  the  job  are  to  be 
obtained  through  cannibalization,  the  SUBSTITUTION  routine 
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is  called.  This  routine  increases  the  proportion  of 
unserviceable  parts  in  the  appropriate  source  vehicles  by  an 
amount  corresponding  to  the  proportion  for  the  job  to  be 
repaired.  Evacuations  are  then  rescheduled  for  source 
vehicles  requiring  them. 

The  repair  is  then  performed  by  setting  either 
the  firepower  damage  attribute,  FP.DAM,  or  the  mobility 
damage  attribute,  MOB. DAM,  to  zero  depending  on  the  mission 
of  the  crew  doing  the  work.  If,  at  the  conclusion  of  the 
repair,  both  of  these  attribute  values  are  zero,  the  job  is 
considered  complete  and  It  is  filed  in  the  CLOSED. JOB  set. 
The  fighting  force  is  also  increased  at  this  time,  and  the 
vehicle  will  participate  in  the  next  battle. 

The  remainder  of  the  REPAIR  event  entails 
finding  another  job  for  the  crew  to  work  on.  The  first 
place  checked  is  the  group  of  jobs  that  are  waiting  shop. 
If  a  job  is  found  that  has  damage  the  crew  has  the 
capability  to  repair  according  to  Its  mission  attribute,  the 
job  is  removed  from  WS. QUEUE  and  a  REPAIR  event  is  scheduled 
for  it. 

If  no  appropriate  jobs  are  available  in  the 
WS. QUEUE,  each  vehicle  in  waiting  transport  status  and  then 
each  job  vehicle  in  waiting  parts  status  is  checked  to  see 
if  parts  can  be  found  through  cannibalization,  so  that  work 
can  be  done.  If  any  such  job  can  be  found,  a  REPAIR  event 
is  scheduled  for  it.  If  no  jobs  can  be  found  that  the  crew 
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In  question  can  perform/  the  OCCUPATION  attribute  of  the 
crew  is  changed  from  busy  to  idle/  and  the  crew  will  watt 
for  a  job  to  become  available. 

f.  Evacuations  to  Higher  Levels  of  Maintenance 

There  are  several  reasons  why  a  vehicle  would 
require  evacuation  to  the  rear.  First#  if  the  damage 
sustained  by  the  vehicle  is  greater  than  the  maintenance 
unit  has  the  capacity  to  repair#  the  job  must  be  evacuated. 
Next#  If  parts  are  not  available  at  a  forward  detachment  for 
a  job#  it  must  be  evacuated.  Finally#  if  a  maintenance  unit 
moves  to  an  alternate  position#  its  jobs  must  be  evacuated. 

These  evacuations  are  accomplished  in  the 
MOVE. REAR  event.  if  the  job  is  to  be  evacuated  from  a 
forward  detachment  to  the  maintenance  company,  an  ARRIVAL 
event  is  scheduled  to  bring  the  vehicle  to  the  company,  if 
the  job  is  to  be  evacuated  to  the  division  support  area#  it 
is  filed  in  the  EVAC.JOB  set  and  is  no  longer  considered  in 
the  model . 

4.  Modelling  the  Combat  Functions 

a.  Movement  of  the  Maintenance  Units 

The  movement  of  maintenance  units  to  new 
positions  Is  accomplished  in  the  JUMP  and  GET. THERE  events. 
Ourlng  a  move#  time  is  expended  and  no  maintenance  functions 
can  be  performed.  Only  mobile  vehicles  accompany  the  unit 


on  the  move.  The  others  are  left  behind  unless  they  can  be 


evacuated  prior  to  the  unit  leaving. 

A  move  is  triggered  when,  in  the  BATTLE  event,  a 
maintenance  unit  gets  too  close  to  the  forward  line  of 
troops,  PLOT.  The  distance  at  which  the  unit  is  too  close 
is  Input  by  the  user  as  the  variable  B.DIST.  The  rate  of 
movement  of  the  FLOT  during  the  battle  is  also  a  user  input 
as  the  variable  FLOT. MOVE  which  is  expressed  in  kilometers 
per  hour.  Therefore,  the  distance  from  the  FLOT  to  the 
maintenance  unit  is  decreased  by  that  rate  multiplied  by  the 
time  of  battle  during  the  BATTLE  event. 

Additionally,  when  the  option  to  represent  the 
tactic  of  trading  space  for  time  is  selected  by  the  user,  a 
further  reduction  of  four  kilometers  in  the  distance  from 
the  maintenance  unit  to  the  FLOT  is  made  for  two  of  the 
units  as  one  of  the  battalion  teams  moves  to  an  alternate 
posi tion. 

When  the  maintenance  unit  moves,  the  assumption 
is  made  that  the  unit  will  move  to  a  new  position  that  is 
the  same  distance  from  the  old  position  as  the  old  position 
was  from  the  FLOT  at  the  start  of  the  first  battle. 

The  speed  in  which  the  unit  moves  to  its  new 
position  is  user  input  as  the  variable  CON. SPEED.  This 
speed  is  reduced  by  event  DAYLIGHT  during  night  operations. 
The  time  it  takes  the  unit  to  move  is  the  quotient  of  the 
distance  moved  and  the  speed,  plus  the  time  it  takes  the 
unit  to  setup  and  resume  its  maintenance  mission.  This 
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SETUP. TIME  variable  is  also  a  user  provided  value,  and  is 
changed  by  event  DAYLIGHT  as  well. 


The  calculation  of  the  movement  time  Is  made  In 
the  JUMP  event,  and  a  GET. THERE  event  is  scheduled  using 
that  calculated  time.  Also,  entity  records  of  jobs  that  do 
not  accompany  the  unit  are  removed  from  the  sets  to  which 
they  belong  and  are  destroyed.  During  the  move,  the  T.JUMP 
attribute  of  the  maintenance  unit  has  a  nonzero  value 
signifying  the  time  at  which  the  unit  will  once  again  begin 
functioning.  No  ARRIVAL  events  will  occur  for  that  unit 
until  after  that  time. 

The  GET. THERE  event  marks  the  resumption  of 
maintenance  activities  at  the  new  position.  Vehicles  that 
have  accompanied  the  unit  and  are  in  waiting  shop  status  and 
need  parts  from  a  cannibalization  are  rechecked  to  make  sure 
the  source  vehicles  are  still  present  at  the  unit.  If  not, 
and  if  the  parts  cannot  be  obtained  from  vehicles  that  are 
with  the  unit,  the  vehicle  is  evacuated  and  a  MOVE. REAR 
event  is  scheduled  for  it. 

Another  function  performed  In  the  GET. THERE 
event  Is  the  matching  of  Idle  crews  with  jobs  In  waiting 
shop  status.  This  action  represents  the  reorganization  of 
effort  at  the  new  position.  When  crews  are  matched  with 
jobs  to  be  done,  repairs  are  scheduled. 

b.  Attrition  of  the  Maintenance  Units 

The  detection  of  the  maintenance  units  by  the 
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enemy,  the  allocation  of  fires  against  them,  and  the  actual 
attrition  of  personnel  is  portrayed  in  this  submodel.  The 
assumption  is  made  that  the  probability  of  detection  of  a 
maintenance  unit  by  the  enemy  and  the  probability  that  the 
enemy  will  decide  to  engage  the  unit  are  functions  of  how 
close  the  unit  Is  to  the  enemy  and  of  the  number  of  vehicles 
at  the  maintenance  unit.  Therefore  the  following  model  Is 
postulated : 

Pr( engagement) *Pr (engagement/detect  ion) Pr ( detect  ion) 

Pr( detect  I  on) *exp( (-VR)**A) 

where  V  is  the  squareroot  of  the  reciprocal  of  the  number  of 
vehicles  present  at  the  unit,  R  is  the  distance  from  the 
forward  line  of  troops  to  the  maintenance  unit  in 
kilometers,  and  A  is  a  user  supplied  shaping  factor  that 
determines  the  degree  of  range  dependency  of  the  function. 
The  probability  of  engagement  given  the  detection  of  a 
maintenance  unit  is  assumed  to  be  unity  for  the  model  due  to 
the  great  amount  of  red  artillery  available.  Several  plots 
of  the  probability  function  are  presented  In  figure  1. 

At  the  conclusion  of  each  BATTLE  event,  routine 
DET. ALLOC  is  called,  and  this  probability  function  Is 
evaluated  for  each  maintenance  unit.  A  random  comparitor  is 
then  drawn  to  see  If  the  enemy  attacks  the  unit.  If  so, 
routine  ATTACK  is  called. 

The  assumption  is  made  that  the  maintenance 
capability  of  a  maintenance  unit  is  proportional  to  the 
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Figure  1.  Probability  of  Detection  Plots 


number  of  maintenance  personnel  present.  Consequently  only 
the  personnel  casualties  and  the  disruption  of  the 
maintenance  activities  of  the  unit  are  portrayed. 

For  each  individual  person  present  at  the  time 
of  the  attack/  a  random  comparitor  is  drawn  and  compared  to 
the  user  Input  value  of  the  probability  of  kill  for 
personnel/  PK.PERS.  The  program  keeps  track  of  the  number 
of  each  type  of  repairman  present  at  the  unit.  These 
numbers  are  decreased  each  time  an  individual  is  killed. 

It  is  assumed  that  in  order  to  function/  a  crew 
must  have  at  least  two  repairmen.  Consequently/  after  the 
number  of  kills  has  been  evaluated/  a  reorganization  takes 
place.  In  this  reorganization  as  many  crews  as  possible  are 
formed  from  the  repairmen  left  alive.  The  rest  of  the  crews 
have  their  OCCUPATION  attribute  value  changed  to  dead,  and 
are  no  longer  considered  in  the  model. 

The  crews  left  functioning  are  then  matched  with 
jobs  to  be  done.  Repairs  in  progress  by  crews  that  are  not 
killed  are  delayed  until  the  end  of  the  attack.  Similarly, 
inspections  that  are  taking  place  at  the  start  of  the  attack 
are  also  delayed. 

Finally,  In  the  event  that  either  or  both  of  the 
repair  capabilities,  firepower  or  mobility,  are  totally 
eliminated,  any  job  that  requires  that  type  of  repair  must 
be  evacuated  to  the  rear.  These  jobs  are  removed  from  the 
sets  they  are  filed  in,  and  MOVE. REAR  events  are  scheduled 
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to  effect  the  evacuations. 

If  repair  capabilities  are  lost  by  the  unit,  any 
future  jobs  received  will  immediately  be  scheduled  for 
evacuation  to  the  maintenance  company.  As  such,  the  forward 
detachment  will  serve  only  as  a  maintenance  collection  point 
where  damaged  vehicles  are  brought  to  be  sent  to  the  rear. 


APPENDIX  C 


PROGRAM  DOCUMENTATION 


A.  INTRODUCTION 

In  this  appendix/  the  maintenance  model  program  is  fully 
documented.  The  set/  entity/  and  attribute  structure  is 
described  in  detail.  Each  program  module  is  discussed  and  a 
line  by  line  explanation  of  the  computer  coding  is  given. 
Also  all  variables  are  defined.  The  reader  is  refered  to 
appendix  E  where  a  program  list  is  supplied. 

B.  ENTITY/  SET,  AND  ATTRIBUTE  STRUCTURE 
1.  The  MAI  NT. UNI T  Entity 

The  MAINT.UNIT  entity  refers  to  the  maintenance 
units,  both  the  forward  detachments  and  the  maintenance 
company.  Each  maintenance  unit  owns  the  following  sets: 

SHOP  -  set  of  crews  In  the  maintenance  unit 

Wl .QUEUE  -  set  of  jobs  in  waiting  Inspection  status 

WP. QUEUE  -  set  of  jobs  in  waiting  parts  status 

WS.  QUEUE  -  set  of  jobs  in  waiting  shop  status 

WT.  QUEUE  -  set  of  jobs  waiting  transport  to  the  rear 

AUTOMOTIVE  -  set  of  jobs  being  worked  on  by  automotive 
repai rmen 

ARMAMENT  -  set  of  jobs  being  worked  on  by  armament 
repai rmen 
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Each  MAINT.UNIT  entity  has  the  following  attributes: 


INSPECTOR  -  number  of  Idle  vehicle  Inspectors 

NAME  -  Identification  of  MAINT.UNIT  with  the  following 

possible  values: 

CO. MAI  NT  -  defined  to  mean  0,  company 
DET1.MAINT  -  defined  to  mean  1,  detachment  1 

DET2.MAINT  -  defined  to  mean  2,  detachment  2 

DET3.MAINT  -  defined  to  mean  3/  detachment  3 

DET4.MAINT  -  defined  to  mean  4,  detachment  4 

VEH. COUNT  -  number  of  vehicles  present  at  the  unit 
D.FLOT  -  distance  from  the  unit  to  the  PLOT 
NM. FOLKS  -  number  of  automotive  repairmen  at  the  unit 
NF. FOLKS  -  number  of  armament  repairmen  at  the  unit 
T . JUMP  -  the  time  in  which  the  unit  will  reach  Its  new 
location  after  a  move 

All  the  maintenance  units  belong  to  a  system  set 
called  SUP. BN  which  stands  for  Support  Battalion. 

2.  The  J.Q3  Entity 

The  JOB  entity  represents  a  damaged  vehicle  that 
enters  the  maintenance  system  to  te  repaired.  Each  JOB 
entity  is  character  I  zed  by  the  following  attributes: 

WO.NUM  -  workorder  number  of  the  job 

VEH. TYPE  -  vehicle  type;  has  the  following  possible 
values : 

TANK  -  defined  to  mean  1 
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APC  -  defined  to  mean  2,  armored  personnel  carrier 
UNIT  -  Indicates  which  of  the  4  supported  battalions 
the  vehicle  has  come  from  and  will  return  to  when  It  is 
repal  red 

TIME. DOWN  -  time#  measured  in  days,  that  the  vehicle 
entered  the  maintenance  system 

MOB. DAM  -  percentage  of  mobility  damage,  a  number 
between  0  and  1 

FP.DAM  -  percentage  of  firepower  damage,  a  number 
between  0  and  1 

T. ARM. REP  -  time  used  to  repair  armament  damage 
T. AUTO. REP  -  time  used  to  repair  automotive  damage 
REP. UNIT  -  NAME  attribute  of  the  maintenance  unit  that 
repairs  vehicle 

TOT. DAM  -  total  of  FP.DAM  and  MOB. DAM;  not  used 

IN. CAN  -  row  Index  of  CAN.REC  array  that  lists  the 

source  vehicles  for  cann I bal I zat Ion 

CAN.NUM  -  the  number  of  vehicles  to  which  job  provides 
parts  for  cannibalization 

LOOP.CH  -  flag  to  mark  vehicle  to  be  removed  from  set 
The  JOB  entitles  can  become  members  of  various  sets 
as  they  progress  through  the  maintenance  system.  These  sets 
Include  the  ones  listed  under  MAINT.UNIT  which  represent 
groupings  of  jobs  with  the  same  status.  In  addition  to 

those  sets  are  three  others  to  which  a  job  may  belong.  They 
are : 
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CLOSED. JOB  -  the  set  of  jobs  for  which  repairs  have 
been  successfully  completed 

EVAC.JOB  -  the  set  of  jobs  that  have  been  evacuated  out 
of  the  brigade  area 

KILL. JOB  -  used  to  temporarl ly  hold  jobs  before  they 
are  destroyed  at  the  end  of  a  replication 

3.  The  CREW  Entity 

The  CREW  entitles  represent  the  groups  of  repairmen 
In  a  maintenance  unit.  The  attributes  that  describe  the 
crews  are: 

MISSION  -  indicates  which  type  of  damage  the  crew  can 
repair;  has  the  following  possible  values: 

AUTO  -  defined  to  mean  1,  repairs  mobility  damage 
ARM  -  defined  to  mean  2,  repairs  firepower  damage 
OCCUPATION  -  indicates  what  the  crew  is  doing  at  any 
time  in  the  simulation;  has  the  possible  values: 

IDLE  -  defined  to  mean  0,  waiting  for  a  job  to  do 

BUSY  -  defined  to  mean  1,  working  on  a  job 

OEAO  -  defined  to  mean  2,  killed  in  an  attack 

N. FOLKS  -  number  of  repairmen  in  the  crew 

Each  crew  entity  belongs  to  the  SHOP  set  of  one  of 
the  maintenance  units. 
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C.  EVENTS  AND  ROUTINES 


1.  The  Preamble 

The  preamble  of  any  SIMSCRIPT  11.5  program  is  used 
to  set  up  the  data  structures  in  terms  of  entities,  sets, 
and  attributes;  define  event  routines  and  list  their 
arguments;  set  up  the  mechanism  for  collecting  statistics  by 
means  of  the  TALLY  statements;  and  define  the  variables  that 
are  global  in  the  program. 

The  preamble  for  this  program  accomplishes  these 
functions  and  is  basically  self  explanatory. 

2.  The  Main  Program 

The  purpose  of  the  main  program  is  to  read  data. 
Initialize  variables  to  the  appropriate  values,  create  the 
maintenance  unit  and  crew  entities  and  initialize  their 
attributes,  schedule  FAILURE  events  for  all  the  vehicles  in 
the  blue  force,  and  schedule  the  first  BATTLE  and  DAYLIGHT 
events.  The  main  program  also  has  the  replication  loop 
contained  in  it,  which  is  used  to  repeat  the  simulation 
experiment  as  many  times  as  the  user  desires. 

Explanation  of  the  coding; 

Lines  1-5  reserve  core  for  various  arrays 

Lines  6-9  define  local  variables  for  the  main  program 

Lines  10-11  read  input  variables 

Lines  12-18  generate  initial  array  of  random  number  seeds 
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Lines  19-32  read  Input  variables 

Line  33  calls  COMP. TIME  routine  to  read  and  compute  beta 
parameters 

Lines  34-35  Initialize  variables 

Line  36  computes  total  number  of  maintenance  personnel  In 
system 

Line  37  begins  replication  loop 

Lines  38-55  Initializes  variables  for  each  replication 
Lines  56-58  prints  Initial  parameter  values  on  first 
repl icatlon  only 

Line  59  computes  the  attrition  constant 

Lines  60-61  schedules  FAILURE  events  for  all  blue  vehicles 
Lines  62-68  initialize  variables  for  replication 
Line  69  performs  initialization  for  stand  and  fight  option 
Lines  70-76  create  the  maintenance  company  and  assign 

attr i butes 

Lines  77-82  calculates  number  of  crews  In  maintenance 

company  and  the  number  of  personnel  In  each  crew 
Lines  83-90  creates  the  crews  for  maintenance  company  and 
assigns  attributes 

Lines  91-112  repeats  maintenance  unit  and  crew  creation 
with  attribute  assignment  for  all  forward  detachments 
Line  113  schedules  first  BATTLE  event 
Line  114  schedules  first  DAYLIGHT  event 
Line  115  prints  Job  List  heading 

Line  116  calls  Timing  Routine  and  starts  the  simulation 
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Line  117  end  of  replication  loop 


3.  Ttig  F.AI LiZS£  .EYfiHt 

The  FAILURE  event  routine  is  executed  whenever  a 
blue  vehicle  breaks  down  due  to  wear  and  tear  and  not  as  a 
result  of  enemy  action.  The  event  determines  the  owning 
unit  of  the  vehicle  and  decreases  the  number  of  combatants 
in  the  unit.  To  avoid  having  a  system  failure  for  a  vehicle 
that  has  already  been  damaged  in  combat/  a  random  number  is 
drawn  and  compared  to  the  proportion  alive  In  the  unit.  If 
the  random  number  exceeds  the  proportion  alive/  the  vehicle 
in  question  is  considered  to  have  already  been  damaged  in 
combat . 

Expanation  of  the  coding: 

Lines  2-3  define  local  variables  for  the  routine 
Line  4  checks  to  see  If  battle  sequence  has  begun 
Lines  5-11  determines  unit  and  schedules  BREAK  event  in 
pre-battle  period 

Line  12  determines  composition  of  unit 

Line  13  checks  to  see  if  vehicle  was  previously  combat 
damaged 

Lines  14-16  decrease  unit  fighting  strength  and  identifies 
vehicle  as  needing  recovery 

Lines  17-26  repeats  13-16  for  split  brigade  composition 
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4. 


The  BATTLE  event  performs  several  functions  In  the 
simulation.  It  contains  the  Lanchester  formulation  that  is 
used  to  compute  the  casualties  and  the  time  of  battle,  it 
performs  the  recovery  missions  and  determines  the  attrition 
of  the  recovery  vehicles.  It  keeps  track  of  the  location  of 
the  various  maintenance  units  with  respect  to  the  forward 
line  of  troops  and  triggers  the  units  to  move  if  necessary, 
and  it  calls  the  detection  and  allocation  routine  which 
generates  enemy  attacks  on  the  forward  detachments. 
Expanation  of  the  coding: 

Lines  2-11  define  local  variables  for  the  routine 
Lines  12-13  increment  counters 

Line  14  increase  echelon  spacing  for  divisional  spacing 
Line  15  prints  battle  results  heading 
Line  16  calls  routine  DET. ALLOC 

Lines  17-34  sets  parameters  depending  on  the  composition  of 
the  unit  fighting 

Line  35  computes  exchange  ratio  for  this  battle 
Lines  36-42  computes  the  time  of  battle 
Line  43  print  WHO. FIGHT  and  battle  time 

Line  44  computes  interdicted  rate  of  advance  of  next  red 
echelon 

Line  45  computes  time  for  rollup  and  restart 
Lines  46-47  computes  time  available  for  recovery 
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Line  48  computes  blue  casualties  including  system  failures 

Line  49  keeps  statistics  on  blue  casualties 

Lines  50-51  compute  number  of  vehicles  needing  recovery 

Line  52  checks  number  of  recovery  vehicles  available 

Line  53  computes  time  needed  to  recover  all  vehicles 

Lines  54-56  computes  the  number  of  vehicles  to  be  recovered 

Lines  57-59  calculates  exposure  times  for  recovery  missions 

Line  60  initializes  job  counter 

Line  61  return  to  regular  echelon  spacing 

Lines  62-86  attempt  recoveries  for  vehicles  and  determine 
success  or  failure  of  missions 

Lines  87-88  print  number  of  recovery  vehicles  lost 

Lines  89-98  schedule  BREAK  events  for  system  failed 

vehicles  that  are  still  mobile 

Lines  99-108  schedule  BREAK  events  for  vehicles  that  are 
combat  damaged  but  are  still  mobile 

Lines  109-119  schedule  BREAK  events  for  vehicles  that  are 
system  failed  and  need  recovery 

Lines  120-127  schedule  BREAK  events  for  vehicles  that  are 
combat  damaged  and  need  recovery 

Lines  128-129  update  number  of  blue  systems  alive 

Lines  130-132  update  distance  of  maintenance  units  to  the 

FLOT 


Lines  133-135  collect  recovery  and  casualty  statistics 
Lines  136-138  update  number  of  red  systems  in  battle 
Line  139  return  to  regular  echelon  spacing 
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Line  140  check  the  composition  of  the  force 

Lines  141-152  update  distances  to  FLOT,  check  to  see  If 

distance  is  too  small  and  schedule  a  JUMP  for  the  unit  If 

necessary 

Lines  153-155  update  variables  for  team  1 

Lines  156-168  do  the  same  as  lines  141-155  for  team  2 

Lines  169-175  change  distance  attributes  for  all 

maintenance  units 

Line  176  print  battle  results 

Line  177  check  to  see  if  breakpoint  Is  reached 

Line  178  check  to  see  If  in  spilt  brigade  conf igurat Ion 

Lines  179-182  change  to  combined  brigade  configuration 

Lines  183-184  schedule  next  battle 

Lines  185-187  if  in  combined  brigade  configuration  and 
breakpoint  has  been  met,  end  the  simulation  and  print 
message 

Lines  188-192  if  in  split  bigade  configuration  and  not  at 
breakpoint,  change  teams  and  schedule  the  next  battle 
Lines  193-194  print  Job  List  heading 

5.  The  BREAK. Eyent 

This  routine  serves  the  purpose  of  creating  a  job 
entity  for  each  successful  recovery  mission.  Once  created, 
the  attributes  of  the  job  entity  are  also  determined.  These 
attributes  Include  the  workorder  number,  the  vehicle  type, 
and  the  firepower  and  mobility  damage  percentages.  The 
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routine  constrains  the  amount  of  damage  that  can  be 
sustained  by  the  vehicle  depending  on  the  vehicle  type  and 
whether  or  not  the  vehicle  was  damaged  in  combat.  A  system 
failed  vehicle  will  be  either  mopility  or  firepower  damaged 
but  not  both,  and  a  maximum  of  0.2  damage  percentage  is 
allowed.  Also  if  the  vehicle  type  is  armored  personnel 
carrier,  its  firepower  damage  percentage  can  attain  a 
maximum  value  of  0.2  since  the  vehicle  is  still  valuable 
even  if  it  cannot  shoot.  The  component  damage  is  determined 
by  calling  the  ASSESS. DAM  routine.  Finally,  the  job  is 
scheduled  for  arrival  at  the  maintenance  detachment  that 
supports  the  owning  battalion. 

Explanation  of  the  coding: 

Lines  2-6  define  local  variables  for  the  routine 

Line  7  draw  random  comparl tor 

Line  8  increment  workorder  number  counter 

Lines  9-14  create  a  job  entity  and  assign  workorder  number 
and  assign  vehicle  type  using  the  random  comparl tor 
Line  15  if  the  job  is  a  system  failure,  branch  to  ON 
Lines  16-17  If  the  job  is  a  combat  damaged  vehicle,  let  the 
maximum  possible  value  of  its  MOB. DAM  attribute  be  1.0 
Line  18  If  the  job  is  combat  damaged  but  still  mobile,  let 
the  maximum  possible  value  of  Its  MOB. DAM  attribute  be  0.2 
Lines  19-22  randomly  draw  FP.DAM  and  MOB. DAM  for  jobs  with 
vehicle  type  of  TANK  and  branch  to  DOWN 

Lines  23-25  randomly  draw  FP.DAM  and  MOB. DAM  for  jobs  with 

88 


vehicle  type  of  APC  and  branch  to  DOWN 

Line  26  draw  random  comparltor  to  determine  if  a  system 
failed  vehicle  is  either  mobility  or  firepower  damaged 
Lines  27-29  randomly  determine  either  FP.DAM  or  MOB. DAM  for 
system  failed  vehicle 

Lines  30-32  call  ASSESS. DAM  routine  to  determine  component 
damage 

Lines  33-38  print  line  of  output  for  Job  List  for  TANK  jobs 
Lines  39-44  print  line  of  output  for  Job  List  for  APC  jobs 
Line  45-51  schedule  arrival  event  at  the  appropriate 
detachment 

6.  The  ARRIVAL  Event 

This  event  represents  the  arrival  of  a  job  at  a 
maintenance  unit,  either  a  forward  detachment  or  the 

maintenance  company.  If  the  type  of  repair  needed  by  the 
vehicle  cannot  be  performed  at  the  unit,  the  job  is 
evacuated.  Otherwise  it  Is  prepared  for  initial  inspection. 
Explanation  of  the  coding: 

Lines  2-3  definition  of  local  variables  for  the  routine 

Line  4  set  JOB  and  MAINT.UNIT  entity  pointers 

Line  5  increment  number  of  vehicles  at  the  unit 

Ltnes  6-7  check  to  see  if  unit  has  personnel  to  do  the  type 

of  work  necessary 

Lines  8-11  schedule  a  MOVE. REAR  to  evacuate  job  if  unit  Is 
not  capable  of  performing  work  and  put  the  job  in  WT. QUEUE 
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Lines  12  -13  if  unit  has  capability  to  do  repair#  check  to 
see  if  all  the  inspectors  are  busy;  if  so#  put  the  job  in 
Wt .QUEUE 

Line  14  if  an  inspector  is  idle#  reduce  the  number  of  idle 
i nspectors 

Lines  15-23  schedule  a  DIAGNOSIS  event  at  the  appropriate 
randomly  drawn  time  depending  on  the  unit 

7.  ms..Bl£AiR„£y.sjiL 

The  REPAIR  event  Is  the  routine  that  effects  the 
actual  repair  of  the  job.  Each  REPAIR  event  has  a  job  and  a 
crew  specified  in  the  argument  list#  and  the  type  of  damage 
repaired  is  dependent  on  the  MISSION  attribute  of  the  crew. 
As  such,  vehicles  with  both  mobility  and  firepower  damage 
require  two  REPAIR  events. 

Explanation  of  the  coding: 

Lines  2-6  definition  of  local  variables  in  the  routine 
Lines  7-9  set  JOB  and  MAI  NT. UNIT  entity  pointers 
Lines  10-13  check  to  see  if  parts  are  to  be  provided  by 
cannibalization#  if  so  call  SUBSTITUTION  routine  and 
exchange  parts  in  source  vehicles 

Lines  14-15  when  crew  Is  automotive#  set  MOB. DAM  attribute 
to  0.0  and  remove  the  job  from  the  AUTOMOTIVE  set 
Lines  16-17  when  crew  Is  armament#  set  FP.DAM  to  0.0  and 
remove  the  job  from  the  ARMAMENT  set 

Lines  18-28  if  job  is  totally  repaired#  file  it  in 
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CLOSED. JOB  set/  calculate  Its  DOWN. TIME  attribute.  Increment 
the  number  returned  to  battle,  remove  job  from  any  other 
sets  It  Is  In,  and  reduce  the  number  of  vehicles  at  the  unit 
Lines  29-31  Increase  number  of  systems  alive  In  the 

appropriate  team 

Lines  32-34  If  job  is  not  totally  repaired  file  it  In 
WS. QUEUE 

Lines  35-36  if  WS. QUEUE  is  empty,  branch  to  CONTROL 

Lines  37-42  search  WS. QUEUE  for  a  job  the  crew  can  do,  if 

one  is  found  branch  to  TAKE 

Lines  43-45  check  to  see  if  WP. QUEUE  and  WT. QUEUE  are 

empty,  if  so  set  OCCUPATION  attribute  of  crew  to  idle  and 
return 

Lines  46-54  check  the  WP. QUEUE  for  a  job  for  which  parts 
can  be  obtained  through  cannibal  I zation 

Lines  55-67  1 f  one  is  found,  call  SUBSTITUTE  routine  to 

exchange  the  parts  and  schedule  another  REPAIR  event 
Lines  63-69  if  none  is  found,  and  job  is  at  the  maintenance 
company,  set  the  OCCUPATION  attribute  of  the  crew  to  idle 
and  return 

Lines  70-98  same  as  lines  37-69  for  jobs  in  WT. QUEUE 
Lines  99-115  schedule  another  REPAIR  event  for  job  found  in 
WS.  QUEUE 

8.  T.he  PARTS.  MM  £  Event 

This  event  represents  the  arrival  of  the  parts 
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needed  to  repair  a  particular  job.  An  attempt  is  then  made 
to  find  an  idle  crew  to  perform  repairs.  if  one  is  found,  a 
REPAIR  event  is  scheduled.  Sometimes,  parts  are  obtained 
for  a  job  through  cannibalization  before  the  parts  arrive 
through  the  supply  system.  In  this  case,  the  PARTS. COME  is 
I gnored . 

Explanation  of  coding: 

Lines  2-4  definition  of  local  variables  in  the  routine 
Line  5  set  JOB  and  MAiNT.UNIT  entity  pointers 
Lines  6-7  check  to  see  If  parts  have  been  obtained  through 
cannibalization,  if  they  have  return 

Lines  8-21  find  a  crew  to  repair  mobility  damage.  If  one  is 
found  schedule  a  REPAIR 

Lines  22-23  if  no  idle  crews  available,  file  the  job  in 
WS. QUEUE 

Lines  24-38  perform  lines  8-23  for  firepower  damage 

9.  I he  Q.1.AQNQ,?!  ?  Event 

This  event  represents  the  initial  inspection  of  the 
vehicle  at  the  maintenance  unit.  As  such,  parts 
availability  Is  checked  both  through  the  supply  system  and 
through  cannibalization,  and  a  crew  is  located  to  do  the 
work.  If  parts  and  a  crew  are  found,  a  REPAIR  event  is 
scheduled.  Otherwise  the  job  is  placed  in  the  appropriate 
set . 

Explanation  of  the  coding: 
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Lines  2-7  definition  of  local  variables  in  the  routine 
Lines  8-9  set  entity  pointers 

Lines  10-11  set  the  number  of  subsystems  (FP)  depending  on 
the  vehicle  type 

Line  12  increment  number  of  idle  inspectors 
Lines  13-15  set  the  probability  of  having  parts  and 
percentage  of  damage  to  be  fixed  depending  on  whether  the 
job  Is  at  the  company  or  at  a  detachment 

Line  16  check  to  see  if  vehicle  damage  exceeds  amount  of 
damage  that  can  be  fixed,  if  so  branch  to  EVAC. MAYBE 
Lines  17-18  draw  a  random  compari tor  and  compare  to 
probability  of  having  parts 

Lines  19-22  if  parts  not  available  call  CANNIBAL  routine  to 
try  to  find  them  by  cannibalization,  if  not  available  branch 
to  EVAC. MAY BE 

Lines  23-36  having  parts,  find  crew  to  repair  mobility 
damage  and  schedule  a  REPAIR  event;  if  none  found  file  in 
WS. QUEUE 

Lines  37-50  having  parts,  find  crew  to  repair  firepower 
damage  and  schedule  a  REPAIR  event;  if  none  found  file  in 

WS.  QUEUE 

Lines  51-58  if  no  parts  are  found  and  job  is  at  a 
detachment,  schedule  a  MOVE. REAR  event  to  evacuate,  file  in 

WT.  QUEUE,  and  branch  to  NEXT 

Lines  59-63  if  vehicle  Is  too  badly  damaged,  evacuate  it 
and  schedule  a  MOVE. REAR  event,  file  in  WT. QUEUE 
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Lines  64-68  if  no  parts  available  at  company,  schedule  a 
PARTS. COME  and  file  in  WP. QUEUE 

Lines  69-82  schedule  another  DIAGNOSIS  event  for  idle 
inspector  if  possible 

10.  The  MOVE.REAR  Event 

The  purpose  of  the  MOVE.REAR  event  is  to  evacuate 
jobs  to  higher  echelons  of  maintenance.  Sometimes,  if  a  job 
becomes  involved  in  a  cannibalization,  it  will  have  been 
removed  from  the  WT. QUEUE.  In  this  case,  the  MOVE.REAR  is 
Ignored.  If  a  vehicle  is  evacuated  from  tie  Maintenance 
company,  it  is  filed  in  the  EVAC.REAR  set  ard  is  no  longer 
considered  in  the  simulation. 

Explanation  of  the  coding: 

Lines  2-3  definition  of  local  variables  in  the  routine 
Line  4  set  entity  pointers 

Line  5  if  job  is  not  in  the  WT. QUEUE,  ignore  the  MOVE.REAR 
Line  6  reduce  number  of  vehicles  at  unit 

Line  8-15  schedule  an  ARRIVAL  at  the  maintenance  company 
for  jobs  at  a  detachment 

Lines  16-25  file  job  In  EVAC.JOB  and  remove  it  from  all 
other  sets 

11.  The  DAYLIGHT  Event 

The  DAYLIGHT  event  represents  the  reduced 
capabilities  of  recovery  vehicleles,  and  the  reduced  convoy 
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speeds  of  moving  units  during  periods  of  reduced  visibility. 
The  routine  changes  the  values  of  several  of  the  variables 
back  and  forth  between  their  day  and  night  values. 

Explanation  of  the  coding: 

Line  2  return  if  battle  sequence  has  not  begun 
Lines  3-12  change  from  day  values  to  night  values 
Lines  13-14  schedule  daybreak  in  9  hours  and  return 
Lines  15-23  change  from  night  values  to  day  values 
Lines  24-25  schedule  nightfall  in  15  hours  and  return 

12.  The  JUMP  Event 

This  event  portrays  the  movement  of  a  forward 
detachment  to  a  new  position,  and  the  suspension  of 
maintenance  activities  during  the  move.  Also,  vehicles  that 
are  not  mobile  do  not  accompany  the  unit  on  the  move,  and  are 
either  evacuated  or  destroyed.  The  time  for  the  unit  to 
move  and  setup  the  new  maintenance  site  is  calculated  and  a 
GET. THERE  event  is  scheduled  for  the  end  of  that  time 
period . 

Explanation  of  the  coding: 

Lines  2-3  definition  of  local  variables  in  the  routine 

Line  4  set  MAINT.UNIT  entity  pointer 

Line  5  compute  time  it  takes  the  unit  to  move 

Line  6  schedule  a  GET. THERE  event 

Lines  7-13  remove  and  destroy  non-mobile  jobs  in  WS. QUEUE 
Lines  14-19  remove  and  destroy  non-mobile  jobs  in  Wl. QUEUE 
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Lines  20-32  remove  and  destroy  all  jobs  tn  WT. QUEUE  that 
will  not  be  evacuated  by  the  time  the  unit  moves 
Lines  33-47  remove  and  destroy  all  non-mobile  jobs  in 
ARMAMENT  set  and  reschedule  REPAIR  events  for  jobs  that  are 
mobile  for  a  time  after  arrival  at  the  new  site 
Lines  48-57  remove  and  destroy  jobs  in  AUTOMOTIVE  set 
Line  58  set  T.JUMP  attribute  of  maintenance  unit  to  delay 
job  arrivals  at  the  unit 

13.  The  GET. THERE  Event 

This  event  marks  the  resumption  of  maintenance 
activities  by  the  maintenance  unit  at  the  conclusion  of  a 
move.  A  check  is  made  to  make  sure  that  the  source  vehicles 
have  accompanied  the  unit  on  the  move,  for  any  job  Involved 
(n  a  cannibal izat ion.  The  crews  are  then  matched  with  jobs 
to  be  done  and  the  maintenance  mission  is  resumed. 
Explanation  of  the  coding: 

Line  2  definition  of  local  variables  in  the  routine 
Line  3  set  MAINT.UNIT  entity  pointer 
Line  4  set  T.JUMP  attribute  to  0.0 

Lines  5-11  check  to  see  if  cannibal izatlons  are  still 
possible 

Lines  12-23  schedule  a  MOVE. REAR  event  for  each  job  that 
can  no  longer  be  cannibalized 

Lines  24-37  match  jobs  with  automotive  crews  and  schedule 


REPAIR  events 


Lines  38*51  match  jobs  with  armament  crews  and  schedule 
REPAIR  events 

14.  the  STOP. SIMULATION  Event 

As  its  name  implies,  the  purpose  of  this  event  is 
to  end  the  simulation  and  output  the  results.  The  routine 
is  called  at  the  end  of  each  replication  and  prints  out 
summary  statistics,  the  backlog  of  jobs  at  every  maintenance 
unit,  and  lists  of  all  the  jobs  that  were  successfully 
completed  and  evacuated  out  of  the  brigade  area.  The 
START. OVER  routine  is  also  called  to  reset  the  variable 
values  for  the  next  replication. 

Explanation  of  the  coding: 

Lines  2-3  definition  of  local  variables  In  the  routine 
Lines  4*6  compute  the  number  of  repairmen  alive  at  the  end 
of  the  simulation 

Lines  7*10  compute  summary  statistics 
Lines  11*19  print  summary  statistics 

Lines  20*72  print  the  backlog  for  each  maintenance  unit 
Lines  73*78  print  list  of  successfully  completed  jobs 
Lines  79*83  print  list  of  jobs  evacuated  outside  the 
brigade  area 

Line  84  call  START. OVER  routine 

15.  The  START. OVER  Routine 

This  routine  is  called  from  the  STOP. SIMULATION 
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event  to  initialize  the  program  for  a  new  replication.  All 
counters  are  set  back  to  zero,  the  totals  of  statistics  kept 
by  the  program  are  reset,  all  scheduled  events  are 
cancelled,  all  jobs  in  the  system  are  filed  In  the  KILL. JOB 
set  and  then  destroyed,  the  CAN. R EC  and  0AM. REC  arrays  are 
set  to  zero,  and  the  maintenance  units  are  destroyed. 

Explanation  of  the  coding: 

Lines  2*6  zero  variables 

Lines  7-9  reset  system  statistic  keeping  routines 
Lines  10*32  cancel  and  destroy  all  scheduled  events 
Lines  33-78  remove  all  jobs  from  the  sets  they  are  In  and 
file  them  in  the  KILL. JOB  set 

Lines  79-80  destroy  the  jobs  in  the  KILL. JOB  set 

Line  81  zero  the  CAN. REC  array 

Line  82  zero  the  DAM. REC  array 

Lines  83-85  destroy  the  MAI  NT. UN I T  entitles 

16.  The  ASS ESS. DAM  Routine 

The  ASSESS. DAM  routine  is  called  by  the  BREAK  event 
to  stochastically  determine  the  component  damage  of  a  job  as 
a  function  of  the  previously  computed  FP.DAM  and  MOB. DAM 
values.  The  FP.DAM  and  MOB. DAM  values  correspond  to  the 
proportion  of  major  subsystems  of  each  type  that  have  been 
damaged.  This  routine  randomly  picks  the  subsystems  that 
are  damaged.  A  random  number  from  between  0.0  to  1.0  is 
drawn  and  Is  assigned  to  the  chosen  subsystem.  This  number 


represents  the  proportion  of  damaged  parts  in  the  subsystem. 
The  values  are  stored  in  the  DAM.REC  array  and  are  indexed 
by  the  workorder  number  of  the  job.  The  component  damage 
values  are  used  in  the  CANNIBAL  routine. 

Explanation  of  the  coding: 

Lines  2-3  definition  of  local  variables  in  the  routine 
Line  4  set  JOB  entity  pointer 

Lines  5-6  set  number  of  subsystems  depending  on  vehicle 
type 

Line  7  set  local  variable  equal  to  workorder  number  of  job 
Lines  8-9  compute  number  of  damaged  mobility  subsystems  If 
any 

Line  10  draw  a  number  corresponding  to  one  of  the 
subsystems 

Lines  11-12  if  the  particular  subsystem  has  not  been  chosen 
before,  draw  a  random  number  and  assign  the  damage 
percentage 

Line  13  increment  counter  and  repeat  sequence  until  values 

are  obtained  for  all  damaged  subsystems 

Lines  14-21  repeat  sequence  for  firepower  subsystems 


17.  The  CANNIBAL  Routine 

This  routine  is  called  in  order  to  determine  if 
parts  can  be  obtained  for  a  job  through  cannibalization. 
This  is  done  by  comparing  the  component  damage  values  of  the 
job  with  those  of  potential  source  vehicles.  If  a  source  of 


parts  Is  found/  the  entity  number  of  the  source  job  Is 
recorded  In  the  CAN.REC  array.  The  routine  returns  to  the 
calling  event  with  a  number  corresponding  to  the  number  of 
source  vehicles  if  enough  were  found/  or  zero  If  the 
cannibalization  attempt  was  unsuccessful. 

Explanation  of  the  coding: 

Lines  2-9  definition  of  local  variables  In  the  routine 
Line  10  set  JOB  and  MAI  NT. UNI T  entity  pointers 
Line  11  set  workorder  number  of  job  in  temporary  location 
Lines  12-13  set  number  of  subsystems  depending  on  vehicle 
type  of  job 

Line  14  reserve  core  for  temporary  storage  of  entity 
numbers  for  source  vehicles 

Lines  15-17  count  number  of  damaged  subsystems  of  job 
Lines  18-19  check  each  job  in  WT. QUEUE  as  a  possible  source 
vehicle 

Line  20  loop  through  all  subsystems 

Line  21  branch  to  LOOP  If  no  parts  needed  for  subsystem 
Line  22  branch  to  LOOP  if  parts  already  found  for  subsytem 
Line  23  If  component  damage  of  job  Is  greater  than  the 
serviceable  percentage  of  parts  In  the  potential  source 
vehicle/  branch  to  LOOP 
Line  24  draw  a  random  comparltor 

Line  25  If  random  comparltor  is  larger  than  proportion  of 
serviceable  parts,  branch  to  LOOP 

Line  26  parts  found,  record  entity  number  of  source  vehicle 


Line  27  add  1  to  number  of  source  vehicles  found,  mark 

parts  as  found  by  adding  1  to  element  of  DAM.REC  array 

pertaining  to  source  vehicle 

Line  28  end  of  search  loop  for  one  potential  source  vehicle 

Line  29  check  to  see  if  number  of  source  vehicles  found 

equals  number  needed,  if  so  branch  to  AHEAD 

Line  30  end  of  search  loop  for  vehicles  in  the  WT. QUEUE 

Lines  31-43  do  search  procedure  for  vehicles  in  WP. QUEUE 

Lines  44-45  after  all  searches  are  complete,  if  not  enough 

source  vehicles  found,  set  CAN  to  zero  and  return 

Lines  46-50  prepare  to  cannibalize  by  removing  job  from  the 

set  It  is  in  and  placing  it  in  WS. QUEUE 

Lines  51-55  cancel  evacuations  for  source  vehicles 

Lines  56-67  cancel  PARTS. COME  events  for  source  vehicles 

and  reschedule  them  either  at  their  original  time  or  the 

time  the  new  parts  will  arrive,  whichever  is  later 

Lines  68-73  find  an  empty  row  of  the  CAN.REC  array  and  set 

IN. CAN  attribute  of  the  job  to  the  row  Index 

Line  74  store  entity  numbers  of  source  vehicles  In  the  row 

of  the  CAN.REC  array 

Line  75  release  core  for  temporary  storage 

18.  The  SUBSTITUTE  Routine 

This  routine  Is  called  by  the  REPAIR  event  to 
actually  substitute  the  parts  that  were  found  in  the 
CANNIBAL  routine.  In  order  to  perform  the  work.  The  routine 
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checks  the  MISSION  attribute  of  the  crew  performing  the 
repair  and  removes  the  parts  only  from  the  corresponding 
subsystems.  Evacuations  are  rescheduled  for  those  jobs  that 
need  them,  and  the  row  of  the  CAN.REC  array  is  zeroed  out. 
Explanation  of  the  coding: 

Lines  2-3  definition  of  local  variables  in  the  routine 
Line  4  set  entity  pointers 

Line  5  set  temporary  variable  to  workorder  number  of  job 
Lines  6*7  determine  number  of  subsystems  depending  on 
vehicle  type 

Lines  8*9  determine  subsystems  for  which  substitutions  are 

to  be  made  depending  on  MISSION  attribute  of  crew 

Line  10  loop  through  appropriate  subsystems 

Line  12  add  the  proportion  of  damaged  parts  for  the  job  to 

those  of  the  source  vehicle 

Line  13*14  reduce  number  of  jobs  to  which  source  vehicle 
will  supply  parts  and  check  to  see  If  the  number  is  zero,  if 
not  branch  to  ZERO 

Lines  15*18  if  It  is  zero,  and  source  vehicle  Is  in 
WT. QUEUE  reschedule  an  evacuation 

Line  19*20  zero  out  the  element  of  the  CAN.REC  array 
Line  21  end  of  loop 

19.  The  PET. ALLOC  Routine 


In  each  BATTLE  event,  the  DET. ALLOC  routine  is 
called  to  determine  which,  if  any,  of  the  forward 


detachments  are  to  be  attacked  by  the  enemy.  A  probability 
of  detection  Is  computed  for  each  forward  detachment  as  a 
function  of  its  distance  from  the  fighting  and  the  number  of 


vehicles  present  at  the  unit.  The  ATTACK  routine  is  then 
called  for  each  detected  unit. 

Explanation  of  the  coding: 

Lines  2*4  definition  of  local  variables  for  the  routine 
Line  5  loop  through  each  forward  detachment 
Lines  6*7  compute  probability  of  detection  for  the  unit 
Line  8  calculate  number  of  personnel  present  at  the  unit 
Lines  9*10  if  unit  already  destroyed  print  message  and 
branch  to  LOOP 

Line  11  draw  random  comparitor 

Lines  12-16  if  comparitor  is  less  than  the  probability  of 
detection  print  message,  call  ATTACK  routine,  calculate 
number  of  personnel  killed  in  attack,  print  message 
Lines  17-19  if  comparitor  is  larger  than  probability,  print 
message  that  unit  was  not  detected,  repeat  for  all  units 

20.  The  ATTACK  Routine 

The  ATTACK  routine  is  called  by  the  DET. ALLOC 
routine  each  time  a  forward  detachment  is  detected  by  the 
for  the  duration  of  the  attack.  The  repairmen  left  alive  at 
the  end  of  the  attack  are  then  reorganized  into  crews,  and 
work  Is  resumed. 


Lines  2-5  definition  of  local  variables  in  the  routine 
Line  6  set  MAINT.UNIT  entity  potnter 

Line  7  evaluate  attrition  of  Inspector  and  replace  him  if 
he  Is  killed 

Lines  9-15  evaluate  attrition  for  each  individual  In  the 
uni  t 

Lines  16-19  calculate  number  of  crews  of  people  left  alive 
Lines  20-21  determine  if  there  is  an  odd  repairman  of 
either  type 

Line  22  loop  through  all  crews  in  maintenance  unit  that 
were  busy  prior  to  attack 

Line  23-25  update  number  of  personnel  alive  in  automotive 
crews  until  supply  of  live  repairmen  is  exhausted 
Lines  26-32  when  supply  of  live  repairmen  is  exhausted/  set 
the  OCCUPATION  attribute  of  the  remaining  crews  to  DEAD  and 
cancel  the  REPAIR  events  for  jobs  they  are  working  on 
Lines  33-41  do  sequence  of  lines  23-32  for  armament  crews 
Lines  42-50  If  any  live  repairmen  are  left  assign  them  to 
idle  crews 

Lines  50-58  If  there  is  an  odd  number  of  either  type  of 
repairmen  assign  him  to  a  crew 

Lines  59-64  cancel  all  REPAIR  events  and  reschedule  them 
after  the  attack  Is  over,  set  flag  attribute  (LOOP.CH)  to  1 
Lines  65-66  set  flag  attribute  back  to  0 

Lines  67-72  cancel  all  DIAGNOSIS  events  and  reschedule  them 
after  the  attack  is  over,  set  flag  attribute  to  1 
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Lines  73-74  set  flag  attribute  back  to  0 
Lines  75-76  set  entity  pointers 

Lines  77-116  if  no  more  automotive  repairmen  at  unit, 
evacuate  all  jobs  at  the  unit  with  mobility  damage,  cancel 
all  repairs  of  automotive  jobs,  cancel  PARTS. COME  events  for 
these  jobs,  cancel  DIAGNOSIS  events  for  these  jobs 
Lines  117-156  do  same  sequence  as  lines  77-116  for  armament 
jobs  if  there  are  no  more  armament  repairmen 

21.  The  COMP. TIMES  Routine 

The  purpose  of  this  routine  is  to  convert  the  time 
related  values  that  it  reads  as  data  into  beta  probability 
distribution  parameters  that  can  be  used  with  the  SIMSCRIPT 
beta  random  number  generator  to  generate  random  times  to 
completion  for  the  various  maintenance  functions.  The  beta 
parameters  are  stored  in  the  A  array;  and  the  time  values  in 
the  form  of  the  minimum,  expected,  and  maximum  times  for 
completion  of  the  activity,  are  stored  in  the  T. ACTION 
array. 

Explanation  of  the  coding; 


Lines  2-3  definition  of  local  variables  in  the  routine 

Line  4  print  heading 

Lines  5-10  compute  beta  parameters 


This  routine  Is  used  to  print  the  data  values 
supplied  by  the  user  as  Inputs.  They  Include  parameters 
that  govern  the  maintenance  process,  as  well  as  the  battle 


and  recovery  operations.  Since  the  routine  Is  composed  of 
print  statements  and  format  specification  statements,  no 
explanation  of  the  coding  Is  given. 

23.  The  GAMMA. F_ Routine 

In  generating  beta  distributed  random  numbers, 
SIMSCRIPT  uses  its  internal  gamma  random  number  generating 
routine.  Some  of  the  parameters  that  are  generated  for  use 
in  the  gamma  routine  are  such  that  an  error  is  produced. 
Consequently  this  routine,  which  is  more  robust,  was 
suggested  by  the  designers  of  SIMSCRCRIPT.  This  routine 
overrides  the  internal  GAMMA. F  routine.  No  explanation  of 
the  coding  is  given. 

D.  VARIABLE  DEFINITIONS 
1.  Input  Variables 

The  values  of  the  following  list  of  variables  are 
supplied  by  the  user.  SIMSCRIPT  reads  data  in  free  format, 
and  it  is  only  important  that  the  values  be  input  in  the 
correct  order,  and  that  the  data  be  consistant  with  their 
definition  in  the  program  In  terms  of  integer  or  real  mode. 
These  variables  are  listed  in  the  order  that  they  are  input. 


REP. COUNT  -  Integer,  number  of  replications  desired 
SEED  -  Integer,  number  that  generates  array  of  random 
number  seeds 

P.TANK  -  real,  proportion  of  tanks  In  the  blue  force 

W.  FIGHT  -  Integer,  specifies  the  initial  force 
configuration  and  has  the  following  possible  values: 

1  -  split  brigade  configuration  with  battalions  1 
and  2  engaged  first 

2  -  split  brigade  configuration  with  battalions  3 
and  4  engaged  first 

3  -  combined  brigade  configuration 

X. RAT  -  real,  initial  exchange  ratio  (red/blue) 

BZERO  -  real.  Initial  blue  force  level 

RZERO  -  real,  initial  red  force  level 

BP  -  real,  red  breakpoint;  proportion  of  red  survivors 
that  cause  the  red  force  to  assume  defensive  posture 
R2.ECH  -  real,  red  second  echelon  rate  of  advance 
(km/hr) 

CCSL  -  real,  cross  country  speed  of  recovery  vehicle 
when  loaded  (km/hr) 

CCSU  -  real,  cross  country  speed  of  recovery  vehicle 
when  unloaded  (km/hr) 

MCPD.ZERO  -  real,  intlal  distance  from  the  PLOT  to  the 
forward  detachments  (km) 

S.ECH  -  real,  distance  between  red  echelons  (km) 

SELF. LIKE  -  real,  proportion  of  damaged  vehicles  that 
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are  self  or  like  vehicle  recovered 

UNREC  -  real,  proportion  of  damaged  vehicles  that  are 
unrecoverable 

R.VEHS  -  real,  total  number  of  recovery  vehicles  In  the 
brigade 

TH  -  real,  average  hookup  time  for  recovery  missions 
Cml ns) 

LOS. PR  -  real,  probability  of  line  of  sight 

TGT.PRI  -  real,  priority  of  recovery  vehicles  as  red 

targets 

PR. INC. ID  -  real,  probability  that  a  recovery  vehicle 
will  be  incorrectly  identified  on  the  battlefield 
LEAD. TIME  *  real,  amount  of  time  in  simulation  before 
first  BATTLE  event  (hours) 

MTTF  -  real,  mean  time  to  failure  of  blue  vehicles 
(operating  hours) 

USE. PER  -  real,  proportion  of  time  that  the  vehicles 
are  operated 

D  -  real,  disorientation  factor  for  recovery  vehicles; 
number  between  0.0  and  1.0 

COD  -  real,  initial  distance  from  the  maintenance 
company  to  the  FLOT  (km) 

ALFA  -  real,  shaping  factor  for  probability  of 
detection  formula 

CON. SPEED  -  real,  convoy  speed  for  movement  of 

maintenance  units  (km/hr) 
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SETUP. TIME  -  real,  time  needed  by  maintenance  unit  to 
resume  maintenance  activities  once  new  position  Is 
reached  (minutes) 

B.DIST  -  real,  distance  from  the  PLOT  to  detachment 
that  causes  detachment  to  move  to  a  different  position 
(km) 

PK.PERS  -  real,  probability  that  an  Individual  soldier 
will  become  a  casualty  when  forward  detachment  Is 
attacked 

NMC. FOLKS  -  real.  Initial  number  of  automotive 

repairmen  at  the  maintenance  company 

NFC. FOLKS  -  real.  Initial  number  of  armament  repairmen 
at  the  maintenance  company 

V.CO.INIT  -  real,  number  of  vehicles  owned  by 

maintenance  company 

N.FWD.DET  -  Integer,  number  of  forward  detachments 
NMF. FOLKS  -  real.  Initial  number  of  automotive 

repairmen  at  each  forward  detachment 

NFF. FOLKS  -  real.  Initial  number  of  armament  repairmen 
at  each  forward  detachment 

V.FS.INIT  -  real,  number  of  vehicles  owned  by  the 
forward  detachments 

N.BNS  -  Integer,  number  of  supported  battalions 
P.MOB  -  real,  proportion  of  system  failures  that  are 

mobl 1 1 ty  related 

P.FWO.FI X  -  real,  percent  of  damage  that  can  be 
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repaired  at  a  forward  detachment 

PR. HAVE. PARTS . FWD  -  real,  probability  that  parts  are 
available  at  a  forward  detachment 

PR. REAR. HAVE. PARTS  -  real,  probability  that  parts  are 
available  at  the  maintenance  company 

P. CO. FIX  -  real,  percent  of  damage  that  can  be  repaired 
at  the  maintenance  company 

T. ACTION  -  2  dimensional  (8  by  3)  real  array,  8  sets  of 
3  time  values  for  the  following  activities: 

1  -  inspection  time  at  forward  detachment 

2  -  Inspection  time  at  maintenance  company 

3  -  repair  time  for  automotive  jobs 

4  -  repair  time  for  armament  jobs 

5  -  waiting  time  for  repair  parts  delivery 

6  -  movement  time  from  forward  detachment  to 
company 

7  -  waiting  time  for  evacuation  from  forward 
detachment  to  company 

8  -  waiting  time  for  evacuation  from  company  to 
division  rear 

2.  Global  Variables 

The  following  variables  are  globally  defined  in  the 
preamble,  and  therefore  have  the  same  value  throughout  the 
program. 

A  -  real,  2  dimensional  array,  values  of  the  beta 
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parameters 


ARM. REP. TIME  -  real/  temporary  location  of  the  repair 
times  for  armament  jobs/  TALLY  statement  computes  mean 
of  this  variable 

ATT. CONST  -  real/  relates  exchange  ratio  to  number  of 
blue  systems  alive 

B. ALIVE  -  real,  number  of  blue  systems  alive 

BAT.NUM  -  Integer/  counter  for  number  of  battle 

sequences 

Bl. ALIVE  -  real/  number  of  blue  systems  alive  In  team  1 
B2. ALIVE  -  real/  number  of  blue  systems  alive  In  team  2 
CAN.REC  -  Integer/  2  dimensional  array,  stores  the  job 
entity  numbers  of  source  vehicles  for  cannibalization 
CAS. COUNT  -  real,  number  of  blue  casualties  in  a 
battle,  TALLY  statement  computes  sum  of  the  values  of 
this  variable 

COUNT  -  Integer,  battle  sequence  counter  used  to 
initiate  divisional  echelon  spacing 

DAM. REC  -  real,  2  dimensional  array,  stores  component 
damage  percentages  for  all  jobs 

DOWN. TIME  -  real,  repair  cycle  time  for  individual 
jobs,  a  TALLY  statement  computes  the  mean  of  this 
variable 

EX. RAT  -  real,  exchange  ratio  (red/blue) 

FLOT.MOVE  -  real,  rate  of  movement  of  the  FLOT  during 
battle  (km/hr) 
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LIGHT. STAT  -  real,  records  whether  day  or  night 
conditions  exist,  has  the  following  possible  values 
DAY  -  defined  to  mean  1.0 
NIGHT  -  defined  to  mean  0.5 
LS  -  real,  probability  of  line  of  sight 
M. REP. TIME  *  real,  temporary  location  of  the  repair 
times  for  automotive  jobs;  TALLY  statement  computes  the 
mean  of  this  variable 

MCPD  *  real,  distance  from  forward  detachment  to  PLOT 
<km) 

MCPD1  -  distance  from  detachments  In  team  1  to  PLOT 
(km) 

MCPD2  -  distance  from  detachments  in  team  2  to  PLOT 
(km) 

NUM. EVAC.REAR  -  integer,  number  of  vehicles  evacuated 
out  of  the  brigade  area 

NUM. RETURN. BATTLE  -  integer,  number  of  vehicles 

repaired  and  returned  to  the  fighting  force 
QUIT  -  Integer,  number  of  system  failures  since  last 
BATTLE  event 

QUIT1  -  integer,  number  of  system  failures  In  team  1 
since  last  BATTLE  event 

QUIT2  -  Integer,  number  of  system  fal lures  In  team  2 
since  last  BATTLE  event 

R. CAS. COUNT  -  real,  number  of  red  casualties  In  a 
battle,  TALLY  statement  computes  the  sum  of  the  values 
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of  this  variable 

REC.NUM  -  real,  number  of  recovery  vehicles  alive 
REC1.NUM  -  real/  number  of  recovery  vehicles  alive  In 
team  1 

REC2.NUM  -  real,  number  of  recovery  vehicles  alive  In 
team  2 

S.CAS  -  real  sum  of  CAS. COUNT  from  TALLY  statement 

S. R.CAS  -  real/  sum  of  R. CAS. COUNT  from  TALLY  statement 
SPACE. ECH  -  real/  red  echelon  spacing  (km) 

SUM. NEED. REC  -  real/  sum  of  number  of  vehicles  that 
need  recovery  in  each  battle;  computed  by  TALLY 
statement  from  sum  of  TOT. NEED. REC 
SUM. REC  -  real/  tallied  sum  of  TOT. REC  variable 

T.  PARTS. COME  -  real/  time  a  job  waits  for  parts:  TALLY 
statement  computes  mean  of  this  variable 

Tl.TIME  -  real/  time  required  to  perform  initial 
inspection;  TALLY  statement  computes  the  mean  of  this 
variable 

TOT. FOLKS  -  real/  total  number  of  maintenance  personnel 
In  the  brigade  area  at  the  start  of  the  simulation 
TOT. NEED. REC  -  integer/  number  of  vehicles  needing 
recovery  In  a  battle;  TALLY  statement  computes  the  sum 
of  the  values  of  this  variable 

TOT. REC  -  Integer/  number  of  vehicles  recovered  In  a 
battle;  TALLY  statement  computes  the  sum  of  this 
variable 
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c  WWWu. 

TRY  -  Integer,  replication  counter 

WHO. FIGHT  -  Integer,  same  as  W. FIGHT,  specifies  which 
team  Is  engaged  in  battle 

WORK. ORDER  -  Integer,  running  counter  of  jobs  entering 
maintenance  system 
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APPENDIX  E  PROGRAM  LISTING 


1  PREAMBLE 

2  MMMU.LT  NOOE  IS  INTEGER 

a  THE  SYSTEM  SUMS  ft  SUP. BN 

«  THE  STSTEN  CRN  OWN  ft  CLOSEO.JOB  AND  AN  EVRC.JOB  AMO  A  KILL. JOB 

5  EVENT  NOTICES  1NCLU0E  FAILURE.  BATTLE. DAYLIGHT  AND  STOP. SIMULATION 

6  EVERT  BREAK  NAS  A  SPEC. DAN  AMO  A  BN 

7  EVERY  PARTS. COME  HAS  A  SPEC. PART  ANO  A  LEV. PART 

B  EVERY  ARRIVAL  HAS  A  SPEC.ARR  ANO  A  LEV.ARR 

•  EVERY  DIAGNOSIS  HAS  ft  SPEC.DIAG  ANO  A  LEV. 01 AG 

10  EVERY  MOVE. REAR  HAS  A  SPEC. JOB  ANO  A  LEVEL 

11  EVERT  REPAIR  HAS  AN  A. CAEN.  A  SPEC.REP  ANO  A  LEV. REP 

12  EVERY  JUMP  HAS  A  LEV. JUMP 

IS  EVERY  GET.TtffRE  HAS  A  LEV. GET 

l«  TEMPORARY  ENTITIES . 

IS  EVERY  NA1NT.UNIT  OHMS  A  SHOP.  A  MS. QUEUE.  A  HP. QUEUE.  A  HI. QUEUE.  A  NT. QUEUE. 

10  AN  ARMAMENT.  AN  AUTOMOTIVE,  HAS  AN  INSPECTOR. ft  NAME.  A  VEH. COUNT.  A  O.FLOT 

17  ANO  A  NH. FOLKS.  A  NF. FOLKS.  A  T.JUHP  ANO  BELONGS  TO  A  SUP. BN 

10  EVERY  JOB  HAS  A  VEH.TTPE,  A  NO. NUN.  A  UNIT.  A  TIME.OQHN.  A  HOB. DAM. A  LOOP.CN. 

10  A  T. ARM. REP.  A  T.AUTO.REP,  A  REP. UNIT.  AN  IN. CAN.  A  TOT. OAM.  A  CAN. NUN. 

A  FP.OAN.  NAY  BELONG  TO  A  HS. QUEUE.  A  HP. QUEUE.  A  Hi. QUEUE.  A  CLOSEO.JOB. 

AN  EVAC.JOB.  AN  ARMAMENT.  AN  AUTOMOTIVE.  A  HT. QUEUE.  A  KILL. JOB 
EVERT  CREM  HAS  A  MISSION,  AN  OCCUPATION,  AN  N. FOLKS  AND  BELONGS  TO  A  SHOP 
DEFINE  HI. QUEUE  AS  ft  SET  RANKEO  BY  LOH  VEH.TTPE  ANO  THEN 
BY  LOU  TIME. DOWN 

DEFINE  MS. QUEUE  AS  A  SET  RANKED  BY  LOH  VEH.TTPE  AND  THEN 
BY  LOH  TlHE.OOHN 

DEFINE  T. ARM. REP  ANO  T.AUTO.REP  AS  REAL  VARIABLES 
DEFINE  T. PART. CONES  AS  ft  REAL  VARIABLE 
DEFINE  TlHE.OOHN.  NOB. OAM,  FP.OAN  AS  REAL  VARIABLES 
DEFINE  X.OAT ,  B.VEKS.  NMC. FOLKS.  NFC. FOLKS.  NFF. FOLKS.  NNF. FOLKS  AS  REAL 
VARIABLES 

DEFINE  N.FIGHT.  REP.COUNT.  TRY  AS  VARIABLES 
DEFINE  COMP. tines  as  a  routine 

DEFINE  CANNIBAL  AS  A  ROUTINE  GIVEN  2  ARGUMENT  YIELDING  1  VALUE 
DEFINE  SUBSTITUTE  AS  A  ROUTINE  GIVEN  S  ARGUMENTS 
DEFINE  ASSESS. DAN  AS  A  ROUTINE  GIVEN  1  ARGUMENT 
DEFINE  GET . ALLOC  AS  A  ROUTINE 
DEFINE  T.JUHP  ANO  B.OIST  AS  REAL  VARIABLES 
DEFINE  CON.SPEEO  AND  SETIP.TIHE  AS  REAL  VARIABLES 

DEFINE  VCN. COUNT.  V.C0.IN1T.  V.FS.INIT.  O.FLOT.  ANO  ALFA  AS  REAL  VARIABLES 
DEFINE  CAN. FIX  AS  A  VARIABLE 

DEFINE  A  ANO  T. ACTION  AS  2-DIHENS1QNRL  REAL  ARRAYS 
DEFINE  DIES.  P.TANK.  BATTLE. TIME.  BUST.  P.MOB.  P.FIX.FHO. 

PR. MOVE. PARTS. FHO,  PR. REAR. HAVE. PARTS.  P.CO.FIX  AS  REAL 
VARIABLES 

DEFINE  ARM. REP. TIME  ANO  M. REP. TIME  AS  REAL  VARIABLES 
TAUT  KAN. ARM. REP  AS  THE  MEAN  OF  ARM. REP. TINE 
TAUT  NEON. AUTO. REP  AS  THE  MEAN  OF  M. REP. TIME 
DEFINE  TI.T1NE  AS  A  REAL  VARIABLE 
TALLY  HERN. Tl. TIME  AS  THE  MEAN  OF  TI.TIHE 
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SI 

DEFINE 

OOHN.T1HE  AS  A  REAL  VARIABLE 

52 

0EF1NE 

TOT. FOLKS  ANO  CAS. COUNT  ANO  R.CAS.CNT  AS  REAL 

VARIABLES 

S3 

DEFINE 

SAT. NUN  AS  A  VARIABLE 

S*l 

TALLY  i 

I.CAS  AS  THE  SUN  OF  CAS.  COUNT 

SS 

TALLY  t 

t.A.CAS  AS  THE  SUN  OF  R.CAS.CNT 

56 

TALLY  MEAN. OOHN. TIME  AS  THE  MEAN  OF  DOWN. TINE 

57 

TALLY  AVG.NP.T1NE  AS  THE  MEAN  OF  T.PART.COHES 

sa 

DEFINE 

C0.NA1NT  TO  NEAN  0 

59 

OEFINE 

0ET1.HAINT  TO  NEAN  1 

60 

oefine 

0ET2.NAINT  TO  NEAN  2 

61 

OEFINE 

0ET3.NA1NT  TO  NEAN  3 

62 

OEFINE 

0ET9.NA1NT  TO  NEAN  9 

63 

OEFINE 

IDLE  TO  NEAN  0 

66 

DEFINE 

BUSY  TO  NEAN  1 

65 

OEFINE 

OEAO  TO  NEAN  2 

66 

oefine 

TANK  TO  NEAN  1 

67 

OEFINE 

APC  TO  HERN  2 

66 

OEFINE 

AUTO  TO  NEAN  1 

69 

DEFINE 

ARM  TO  NEAN  2 

70 

oefine 

SHOT  TO  NEAN  1 

71 

oefine 

SYS. FAIL  TO  MEAN  0 

72 

oefine 

NUN. EVAC. REAR  ANO  NUN. RET. BATTLE  AS  VARIABLES 

73 

oefine 

N. FOLKS.  NN. FOLKS.  NF. FOLKS  AS  REAL  VARIABLES 

79 

define 

PK.PERS  ANO  PK. TRUCK  AS  REAL  VARIABLES 

75 

oefine 

S.ECH  AS  A  REAL  VARIABLE 

78 

OEFINE 

COUNT  AS  A  VARIABLE 

77 

OEFINE 

OAN.AEC  AS  A  REAL  2-0IHENS10NRL  ARRAY 

76 

oefine 

CAN.REC  AS  A  2-OINENSIONAL  array 

79 

oefine 

TOT. DAN  AS  A  REAL  VARIABLE 

80 

OEFINE 

COO  AS  A  REAL  VARIABLE 

91 

OEFINE 

EX. RAT.  BZERO.  B. ALIVE.  RZERO.  R. ALIVE.  BP.  R. 

2ECH.  CCSL,  CCSU. 

62 

NCPO, 

,  SPACE. ECH.  SELF. LIKE.  UNREC.  REC. NUN.  TH.  LS. 

LOS. PR.  TGT.PRI . 

93 

FA. INC. 10,  LEAD. TINE.  NTTF.  USE. PEA.  ATT. CONST.  FLOT.HOVE  AS  REAL  VARIABLES  1 

99 

OEFINE 

OAT  TO  NEAN  1.0 

95 

OEFINE 

NIGHT  TO  NEAN  0.5 

96 

define 

0  AS  A  REAL  VARIABLE 

97 

oefine 

LIGHT. STAT  AS  A  REAL  VARIABLE 

99 

define 

NORK.OROER  ANO  N.BNS  AS  VARIABLES 

99 

define 

TOT. REC  AS  A  VARIABLE 

90 

define 

TOT. NEED. REC  AS  A  VARIABLE 

91 

define 

Bl. ALIVE  AND  B2. ALIVE  AS  REAL  VARIABLES 

92 

define 

WHO. FIGHT  AS  A  VARIABLE 

93 

OEFINE 

REC I . NUN  ANO  REC2.NUN  AS  REAL  VARIABLES 

99 

OEFINE 

NCP01  ANO  NCP02  AS  REAL  VARIABLES 

95 

OEFINE 

NCPO. ZERO  AS  A  REAL  VARIABLE 

99 

OEFINE 

0UIT1  ANO  0U1T2  AS  VARIABLES 

97 

oefine 

QUIT  AS  A  VARIABLE 

99 

DEFINE 

PR. OAT. INC  AS  A  REAL  VARIABLE 

99 

OEFINE 

SHOTF  TO  NEAN  2 

too 

TALLT  SUN.REC  AS  THE  SUN  ANO  NEAN.REC  AS  THE  MEAN  OF 

TOT. REC 

133 


,■ f  s’ 
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_ _ ✓  ^  j  «*  X 


1 

2 

3 

4 

5 

6 
7 
0 

9 

10 

11 

12 

13 

14 

15 

16 
17 
16 

19 

20 
21 
22 

23 

24 

25 

26 
27 
26 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 


HA  IN 

RESERVE  OAM.RECIk.m)  AS  550  BT  11 
RESERVE  CRN. REC  («.«)  AS  100  BT  11 
RESERVE  A(m.m)  AS  6  BT  2 
RESERVE  T.  ACTION  («.«1  AS  8  BT  3 
0EF1NE  NH  AS  A  REAL  VARIABLE 

OEFINE  1. J.K.N. ARM, N.FNO.OET.N. GROUP  AS  VARIABLES 
DEFINE  X  AS  A  REAL  VARIABLE 
OEFINE  F.  H.  NF.  LOF  ANO  LOH  AS  REAL  VARIABLES 
READ  REP. COUNT 
READ  SEED 
LET  SEE0.V(1)-SEE0 
FOR  1-2  TO  9.  00 
LET  X>RANOOM.F  (1) 

LET  SEEO.VUl-SEEO.V  111*100 
LOOP 

LET  X-RANOOM.F  (II 
LET  SEEO.  V  (II  "SEED.  V  (11  +100 
READ  P. TANK 
READ  H. FIGHT 

READ  X.RAT.  8ZER0.  RZERO.  BP.  R.2ECH.  CCSL.  CCSU 
READ  HCPD. ZERO 

READ  3.ECH.  SELF. LIKE.  UNREC,  R.VEHS.  TM 
READ  LOS. PR.  TGT.PR1,  PR. INC. ID,  LEAD-TIME 
REAO  HTTF.  USE. PER 
REAO  0 

REAO  COO  ANO  ALFA 

REAO  CON.SPEEO  ANO  SETUP. TINE  ANO  B.OIST 
REAO  PK.PERS 

READ  NMC. FOLKS.  NFC. FOLKS.  V.C0.IN1T,  N.FHD.DET 
REAO  NMF. FOLKS.  NFF. FOLKS.  V.FS.IN1T 

REAO  N.BNS,  P.HOB.  P.FIX.FHD,  PR. HAVE. PARTS. FMO,  PR. REAR. HAVE. PARTS. P. CO. FIX 

CALL  COMP. TIMES 

LET  LIGHT. STAT-DAT 

LET  PR. OAT. INC+PR. INC. 10 

LET  TOT. FOLKS-NMC. FOLKS  +NFC. FQLKS+4. *  INMF. FOLKS'* NFF. FOLKS! 

FOR  TRT+1  TO  REP. COUNT,  00 
LET  BAT.NUM+O 
LET  LS-LOS.PR 
LET  HORK.OROER-O 
LET  EX.RAT-X.RAT 
LET  HH0.F1GHT-H. FIGHT 
LET  MCPO-MCPO.ZERO 
LET  SPACE. ECH-S.ECH 
LET  REC.NUM-R.VEHS 
LET  NM-NMF. FOLKS 
LET  NF-NFF. FOLKS 
IF  LIGHT. STAT-N1GHT 
LET  LIGHT. STAT-OAT 
LET  CCSU-2.-CCSU 
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51 

52 

53 
511 

55 

56 

57 
56 

59 

60 
61 
62 
63 
69 

65 

66 

67 

68 

69 

70 

71 

72 

73 
79 

75 

76 

77 

78 

79 

80 
61 
82 
83 
69 
65 
88 
87 
68 
89 
30 

91 

92 

93 
99 

95 

96 

97 

98 

99 

100 


LET  CCSL-2.-CCSL 
LET  SETUP. TIME-. 5-SETUP. TIME 
LET  Pfl.JNC.JD-PB.DAT. INC 
LET  C6N.SPEE0-2.mC8N. SPEED 
LET  TN-TH/1 .5  ALWAYS 
IF  TBT-1 
CALL  1NIT. PRINT 
ALWAYS 

LET  ATT. CONST—  (1.0/B2ER0)  -LOG.E.F  (EX. RAT) 

FOR  K-l  TO  8ZER0«2.  SCHEDULE  A  FAILURE  IN  EXPONENTIAL. F (NTTF/USE.PEA. 1) 
HOURS  '‘COMPUTES  FAILURE  TIMES  FOR  ALL  VEHICLES" 

LET  R.AL1VE-RZER0 
LET  81 . ALI VE-8ZER0 
LET  82. ALIVE-BZERO 
LET  REC1.NUH-REC.NUM/2. 

LET  REC2. NUH-REC. NUM/2. 

LET  HCPOl-HCPO. ZERO 
LET  HCP02-MCP0. ZERO 

IF  HM0.F1GHT-3  LET  B.ALIVE-2.mBZER0  RLHATS 
CREATE  A  HA1NT.UN1T  FILE  MAINT.UNIT  IN  SUP. BN 
LET  NAME (MAINT.UNIT) -CQ.MA1NT 
LET  NM. FOLKS (MAINT.UNIT) -NHC. FOLKS 
LET  NF . FOLKS (HA I NT . UNI T) -NFC .  FOLKS 
LET  VEH. COUNT (MAINT.UNIT) -V. CO. 1NIT 
LET  0. PLOT (MAINT.UNIT) -COD 
LET  INSPECTOR (MAINT.UNIT) -2 
LET  H-NM. FOLKS (MAINT.UNIT)  /2. 

LET  F-NF. FOLKS (MAINT.UNIT) /2. 

LET  N.  ARM-TRUNC.F  (F) 

LET  N.GROUP-TRUNC.F (H) ♦N.ARM 
IF  FRAC.F (M) >0.  LET  LOM-i.  RLHATS 
IF  FRAC.F  IF) »0.  LET  LOF-1.  RLHATS 
FOR  I-l  TO  N. GROUP.  00 

CREATE  A  CREH  FILE  CREH  IN  SHOP (MAINT.UNIT) 

IF  I  LE  N. ARM  LET  MISSION (CREH) -ARM 
LET  N. FOLKS (CREH) -2.*L0F  LET  LOF-O. 

ELSE  LET  MISSION  (CREH) -AUTO 

LET  N. FOLKS  (CREH)  -2.+L0N  LET  LON-G. 

ALHATS  LET  OCCUPATION  (CREH) -I OLE 

LOOP 

FOR  I-l  TO  N.FHO.DET.  00 

CREATE  A  MAINT.UNIT  FILE  MAINT.UNIT  IN  SUP. BN 
LET  NAME (MAINT.UNIT)-I 
LET  NM. FOLKS  (MAINT.UNIT)  -NM 
LET  NF. FOLKS  IMRINT.UNIT1  -NF 
LET  H-NM.FOLKS (MAINT.UNIT) /2. 

LET  F-NF. FOLKS (MAINT.UNIT)  /2. 

LET  N. ARM-TRUNC.F  (F) 

LET  N.GROUP-TRUNC.F (M) *N. ARM 
IF  FRAC.F  (M)*0.  LET  LOM-I.  ALHATS 
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101  IF  FRAC.F  (F) >0.  LET  L0F-1.  AiHAYS 

102  LET  VEH.COUNT (MAINT.UNIT)  «V.FS.  1N1T 

103  LET  O.FLOT  (MAINT.UNIT) ■MCPD.ZERO 

104  LET  INSPECTOR  (HAl’JT. UNIT) -1 

105  FOR  J-l  TO  N. GROUP.  DO 

105  CREATE  A  CREW  FILE  CREM  IN  SHOP (MAINT.UNIT) 

107  IF  J  LE  N.ARM  LET  MISSION (CRENI -ARM 

106  LET  N. FOLKS (CREH) >2.*L0F  LET  LOF-O. 

109  ELSE  LET  MISSION  (CREW -AUTO 

110  LET  N. FOLKS (CREH) >2. ♦LOM  LET  LOM-O. 

111  ALHATS  LET  OCCUPATION (CREH) -IDLE 

112  LOOP  LOOP 

113  SCHEDULE  A  BATTLE  IN  LEAD. TIME  HOURS 

114  SCHEDULE  A  DAYLIGHT  IN  LEAD. TINE*  IS.  HOURS 

115  PRINT  4  LINES  AS  FOLLOHS 

116  JOB  LIST 

117 

116  HO  TO  V  U  H  FP  HO  DAH.REC 

119 

120  START  SIMULATION 

121  LOOP 

122  STOP 

123  END 
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1  EVENT  FAILURE 

2  DEFINE  SPEC. DAM  ANO  BN  AS  VARIABLES 

3  DEFINE  TEAM  AS  A  VARIABLE 

0  IF  TIME.V-HOURS.V  LT  LEAO.TINE 

5  LET  SPEC. 0AH-3YS. FAIL 

6  LET  BN-RANOI.F  (1.0.2) 

7  IF  BN-1  OR  BN-2  SUBTRACT  I  FROM  Bl. ALIVE  ALWAYS 

8  IF  BN-S  OR  BN-0  SUBTRACT  I  FROM  82. ALIVE  ALWAYS 

9  IF  WHO. FIGHT* 3  SUBTRACT  1  FROH  B. ALIVE  ALWAYS 

10  SCHEDULE  A  BREAK  GIVEN  SPEC.DAH  AND  BN  IN  UNIFORM. F (2. .3. 

11  RETURN 

12  ELSE  IF  WHO. FIGHT-3 

13  IF  RAN00H.F(2)>B.ALIVE/(BZER0m2.)  RETURN 

10  ELSE  AOO  1  TO  QUIT 

15  SUBTRACT  1.  FROM  B. ALIVE 

16  RETURN 

17  ELSE  LET  TEAH-RANOI.F  (1.2.2) 

18  IF  TEAH-1 

19  IF  RANOOH.F (2) >81 . AL1VE/BZER0  RETURN  ELSE 

20  SUBTRACT  1.  FROH  Bl. ALIVE 

21  ADD  1  TO  QU1T1 

22  RETURN 

23  ELSE  IF  RANOOH.F (2) »B2. ALIVE/BZERO  RETURN  ELSE 

20  SUBTRACT  1.  FROM  B2. ALIVE 

25  ADO  1  TO  QU1T2 

26  RETURN 

27  ENO 


.2)  HOURS 
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1  EVENT  BATTLE 

2  DEFINE  REC.KILL  AS  A  VARIABLE 

3  DEFINE  1  AS  A  VARIABLE 

4  DEFINE  BRAKE,  OEST,  OlFF,  FLAG.  K.  KILLED,  HON. DAM.  LEV. JUMP,  NUH.J0B3. 

5  RELKS,  TEMP  AS  VARIABLES 

S  DEFINE  TE.R. TRANS  AS  A  REAL  VARIABLE 

7  DEFINE  T8,  Rl.  TAR.  C.  TEHP2,  NR.  T.REC.  TE. TRANS.  TE.HSBK.  REC.TIHE 

8  AS  REAL  VARIABLES 

9  DEFINE  CHECK  AS  A  REAL  VARIABLE 

10  DEFINE  BN,  BNH.  BNL  AS  VARIABLES 

11  DEFINE  RAT  AS  A  REAL  VARIABLE 

12  ADO  1  TO  BAT. NUN 

IS  ADD  1  TO  COUNT 

IN  IF  COUNT-4  LET  COUNT-O  LET  SPACE. ECH-20.  ALNATS 

15  PRINT  9  LINES  H1TH  BAT. NUN  THUS 

16 

17  RESULTS  OF  BATTLE  mu 

18 

19  CALL  DET. ALLOC 

20  IF  MHO. FIGHT-9 

21  LET  BNL-1 

22  LET  BNH-4 

29  GO  AAOUNO 

2*1  ELSE  IF  MHO. FIGHT- 1 

25  LET  BNL-1 

26  LET  BNH-2 

27  LET  B.ALlVE-81. ALIVE 

28  LET  REC.NUN-REC1.NUN 

29  LET  MCPO-HCPOl 

SO  LET  0UIT-QU1T1 

91  ELSE  LET  B.RL1VE-B2. ALIVE 

92  LET  BNL-3 

99  LET  BNH- (I 

94  LET  REC. NUH-REC2. NUN 

95  LET  HCP0-NCPD2 

96  LET  QUIT-QUIT2 

97  ALNATS  ’AROUND ' 

98  LET  EX. RAT-EXP. F (-ATT. CONST-B. ALIVE) -LIGHT. STAT 

99  LET  RAT-R. ALIVE/8. ALIVE 

40  LET  CHECK-EX. RAT- ( ( (A.  ALIVE/B.  ALIVE) —2) » (1.-BP—2) I 

41  IF  CHECK  LT  0. 

42  LET  TB—  II  ./SORT. F  (EX. RAT) )  mLOG.E.F  (1  .-BP) 

49  ELSE  LET  TB-LOG.E.F ( (SQRT.F (CHECK) - (RAT-BP) I / (SORT. F (EX. RAT) -RAT) I / 

44  SORT. F  (EX. RAT) 

45  ALNATS 

46  PRINT  9  LINES  N1TH  NHO. FIGHT  ANO  TB  THUS 

47 

48  NHO. FIGHT  IS  *  TINE  OF  BATTLE  IS  n.»»«  HOURS 

49 

50  LET  RI-R.2ECH-UN1F0RH.F (0.5, 1.0,2) 
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51  LET  TRR-  (SPACE.  ECH/R1)  ♦TB»  (UNIFORM. F  (5. ,  1 0.  ,2)  /60. ) 

52  LET  C— EX. RAT«(TB/((1.-BP)-R. ALIVE)) 

53  LET  REC.T1NE-TB*TRR*C 

54  LET  TEMP2-((1.-BP)mA.RL1VE/EX.RAT)+RERL.MQU1T) 

55  LET  CflS.CaUNT-TEHP2-RERL.MQUm 

SB  IP  TEHP2  >  B. ALIVE  LET  TEHP2-B. ALIVE+REAL.F (QUIT)  ALHRTS 

S?  LET  NR-(1.-SELF.LIKE-UNREC)-TEHP2 

SB  IF  REC. NUN-0  LET  FLflC-l  GO  DONE  ALWAYS 

SB  LET  T.REC-  (NR/REC. NUN)  - ( (HCPO-  U.-D)  /CCSL)  *TH«  (HCPD-  (l.*0)  /CCSU)  I 

60  IF  REC. TINE  LE  T.REC 

61  LET  RECKS-INT.F (NR-REC.TlNE/T. REC) 

62  ELSE  LET  RECKS-INT.F (NR)  ALWAYS 

63  LET  TE.TRANS«(HCP0/CCSU)«(1.*D) 

61  LET  TE.R. TRANS- (HCPD/CCSL) ■ (l.+O) 

65  LET  T£.HOOK-LS«UNIF0RN.F(O...4.2)-(l./TGT.PRI)-PR.INC.ID-TM 

66  LET  NUN. JOBS-O 

67  LET  SPACE. ECH-S.ECH 

68  IF  RECKS  GE  REC. NUN 

69  LET  TEHP-REC.NUH 

70  LET  OIFF-RECKS-TEHP 

71  ELSE  LET  TEHP-RECKS 

72  ALWAYS  FOR  K-l  TO  TEHP,  DO 

79  IF  RANDOM. F  (2)  LE  (TAN.F  (TE.  TRANS-0. 017453)  I 

74  OR  RANDOM. F (2)  LE  ABS.F (1. /LOG. E.F  (TE. HOOK)) 

75  OR  RANDOM. F  (2)  LE  TAN.F  (TE.R. TRANS-0. 01 7453) 

76  SUBTRACT  I  FROM  REC. NUN 

77  ADO  1  TO  REC. KILL 

78  IF  REC.NUM-O.  GO  DONE  ALWAYS 

79  GO  ON 

80  ELSE  ADO  1  TO  NUN. JOBS 

01  'ON*  LOOP 

02  IF  DIFF  NE  0 

89  FOR  K-l  TO  01 FF,  DO 

84  IF  RANOOH.F  (2)  LE  (TAN.F  (TE.TRRNS-0. 017453) ) 

85  OR  RANOOM.F (2)  LE  ABS.F (1 ./LOG. E.F  (TE. HOOK) ) 

68  OR  RANOOM.F  (2)  LE  TAN.F  (TE.R. TRANS-0. 01 7453) 

87  SUBTRACT  1  FROM  REC. NUN 

86  ROD  1  TO  REC. KILL 

89  IF  REC.NUM-O.  GO  DONE  ALHRTS 

90  GO  OUT 

91  ELSE  AOO  1  TO  NUH.JOBS 

92  'OUT '  LOOP 

93  REGARDLESS  'DONE* 

94  PRINT  2  LINES  WITH  REC. KILL  THUS 

95  NUMBER  RECOVERY  VEHICLES  KILLEO  THIS  BATTLEi  — 

96 

97  "SELF-LIKE,  STS  FAIL" 

98  LET  BROKE-INT.F (SELF. LIKE-REAL. F(OUIT)) 

99  IF  BROKE  GE  1 

100  FOR  1-1  TO  BROKE.  DO 
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101  LET  H0N.0AN-STS.FA1L 

102  LET  BN-RANOI.F  (BNL.BNH.2) 

103  SCHEDULE  A  BREAK  GIVEN  HOM.ORH  AND  BN  IN  UNIFORM. F  (.5-TE.  TRANS. 

104  REC.T1HE.2I  HOURS 

105  LOOP 

106  ELSE  LET  BROKE-O 

107  ALHATS  •  'SELF-LIKE.  SHOT  *  * 

108  LET  KILLE0-INT.F(SELF.LIKE«(1.-BP)-R.ALIVE/EX.RAT) 

109  IF  KILLED  CE  1 

110  FOR  1-1  TO  KILLED.  00 

111  LET  HOH.OAN-SHOTF 

112  LET  BN-RANO 1 . F  (BNL . BNH. 21 

113  SCHEDULE  A  BREAK  GIVEN  HOW. DAM  ANO  BN  IN  UNIFORM. F (.SmTE. TRANS. 

114  REC.T1ME.2)  HOURS 

115  LOOP 

116  ELSE  LET  KILLEO-O 

117  ALHATS  •‘RECOVERED.  STS  FAIL*’ 

118  IF  FLAG-1  GO  CHANGE  ALHATS 

119  LET  BROKE-QU 1 T -BROKE 

120  IF  BROKE  GE  1 

121  FOR  1-1  TO  BROKE,  00 

122  LET  HOH.OAM-STS. FAIL 

123  LET  BN-RANO l.F  (BNL.BNH.2) 

124  SCHEOULE  A  BREAK  GIVEN  HOH.DAM  AND  BN  IN  UNIFORM. F (.S-TE. TRANS. 

125  REC.TIME.2)  HOURS 

126  LOOP 

127  ELSE  LET  BROKE-O 

128  ALHATS  "RECOVERED.  SHOT" 

129  LET  DEST -NUN. JOBS-BROKE 

130  FOR  1-1  TO  OEST.  00 

131  LET  HON. OAM- SHOT 

132  LET  BN-RAN01.F (BNL.BNH.2) 

133  SCHEOULE  A  BREAK  GIVEN  HOH.OAM  AND  BN  IN  UNIFORM. F (. 5-TE.  TRANS, 

134  REC.TIME.2)  HOURS 

135  LOOP 

136  •CHANGE* 

137  LET  B.ALIVE-B.ALIVE-TEMP2+REAL.F(QUIT) 

138  LET  NCPOl-MCPOl-(FLOT.NOVE-TB) 

139  LET  MCP02-MCPD2-  (FLOT.MOVE-TB) 

140  LET  HCPO  -MCP0  -  (FLOT.MOVE-TB) 

141  LET  TOT. REC-NUM. JOBS 

142  LET  TOT. NEED. REC- I NT. F (NR) 

143  LET  R.CAS.CNT-R. ALIVE- (1 .-BP) 

144  LET  R.AL1VE-BP-R. ALIVE 

145  IF  R. ALIVE  LE  70.  AOO  RZERO  TO  R. ALIVE 

148  ELSE  ADO  RZERO/2.  TO  R. ALIVE  ALHATS 

147  LET  SPACE. ECH-S.ECH 

148  IF  HHO. FIGHT-3  GO  AHEAO 

149  ELSE  IF  HH0.F1GHT-1 

150  SUBTRACT  4.  FROM  MCP01 
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151 

152 
159 

154 

155 

156 

157 
156 

159 

160 
161 
162 
169 
169 
165 
168 

167 

168 

169 

170 

171 

172 
179 

174 

175 

176 

177 

178 

179 

180 
181 
162 
189 
164 

185 

186 
167 
188 

189 

190 

191 

192 
199 

194 

195 

196 

197 

198 

199 

200 


LET  0UJT1-0 
IF  MCP01  LE  B.01ST 
900  MCPD.ZERO  TO  NCPOl 
FOR  1-1  TO  2.  00 

FOR  EACH  MAINT.UNIT  IN  SUP. 6N  N1TH  NAME (HAINT. UNIT) •!.  DO 
LET  LEV. JUHP-HA1NT. UNIT 

SCHEDULE  A  JUMP  GIVEN  LEV. JUMP  IN  15.  MINUTES 
AOO  MCPD.ZERO  TO  D.FLOT  (MAINT.UNIT) 

LOOP 

LOOP  ALMATS 
LET  REC1.NUM-REC.NUH 
LET  B1.AL1VE-B.AL1VE 
GO  AHEAO 

ELSE  SUBTRACT  4.  FROM  HCPD2 
LET  QUIT2-0 
IF  HCP02  LE  B.OIST 
AOO  MCPD.ZERO  TO  HCP02 
FOR  1-9  TO  4.  DO 

FOR  EACH  MAINT.UNIT  IN  SUP. BN  NITH  NAME (MAINT.UNIT) -I ,  DO 
LET  LE V . JUHP-HA I  NT . UN I T 

SCHEDULE  A  JUMP  GIVEN  LEV. JUMP  IN  15.  MINUTES 
ADO  MCPD.ZERO  TO  D.FLOT  (MAINT.UNIT) 

LOOP 

LOOP  ALNATS 
LET  REC2 . NUM-RE C . NUM 
LET  82.ALIVE-B. ALIVE 
'AHEAO ' 

FOR  ERCH  MAINT.UNIT  IN  SUP. BN  NITH  NAME  (MAINT.UNIT) >0,  DO 
IF  NAME  (MAINT.UNIT)  LE  2  LET  D.FLOT (MAINT.UNIT) -HCPD1 
ELSE  LET  D.FLOT (MAINT.UNIT) -MCPD2 
ALNATS  LOOP 

FOR  EACH  MAINT.UNIT  IN  SUP.BN  NITH  NAME (MAINT.UNIT) -CO. MA1NT 
LET  D.FLOT  (MAINT.UNIT)  -D.FLOT  (MAINT.UNIT)  -  (FLOT.MOVE-TB) 

PRINT  2  LINES  NITH  REC.NUM,  B. ALIVE.  R. ALIVE  THUS 
•  RE.  VEHS.  LEFTi  —  B.ALlVEi  nnm  R.ALIVEi  nnn 

IF  B. ALIVE  LE  71. 

IF  NHO. FIGHT  NE  9 
LET  NMO. FIGHT-9 
LET  B. AL1VE-B1 .AL1VE*B2. ALIVE 
LET  0UIT-QU1T1-0U1T2 
LET  REC . NUN- RE C 1 . NUM+REC2. NUN 
SCHEOULE  A  BATTLE  IN  TB*TRR* (4.-TB) /RI  HOURS 
GO  MA1TE 

ELSE  SCHEDULE  A  STOP. SIMULATION  IN  TB  HOURS 
PRINT  I  LINE  THUS 

BLUE  REACHES  BREAKPOINT  THIS  BATTLE 
60  NR1TE 
ELSE 

IF  NMO. FIGHT-1  LET  NHO. FIGHT-2  ELSE 
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201  IF  NH0.F1GHT-2  LET  WHO.FIGHT-1  ALWAYS  AEGAAOLESS 

202  SCHEOULE  A  BATTLE  IN  TB«TRR*  (U.-TB1 /R1  H0UA3 

203  LET  0U1T-0 

20N  •WRITE ’ 

205  PRINT  5  LINES  AS  FOLLOWS 

206 

207  JOB  LIST 

208 

209  WO  TO  V  U  H  FP  MO  DAN.AEC 

210 

21 1  RETURN 

212  END 


EVENT  BREAK  GIVEN  HON. OAM  AND  BN 
OEFINE  LEVEL  AS  A  VARIABLE 
DEFINE  BN.  Hfl  AS  VARIABLES 
OEFINE  SPEC. JOB  ANO  HON. DAN  AS  VARIABLES 
DEFINE  X  AS  A  REAL  VARIABLE 
OEFINE  MAX. DAM  AS  A  REAL  VARIABLE 
LEI  X-AAN00M.F(2) 

LET  MARK . OROER- HORN . OROER* I 
CREATE  A  JOB 

LET  UNIT (JOB! -BN 
LET  HO. NUN  1 JOB) -MORK. OROER 
IF  X  LE  P.  TANK  LET  VEH. TYPE (JOB) -TANK 
ELSE  LET  VEH. TYPE (JOB) -APC 
ALHAY3 

IF  HON.OAN-STS.FA1L  GO  ON 
ELSE  IF  HOH. OAN-SMOT 
LET  MAX. DAN- 1.0 
ELSE  LET  NAX.0AM-0.2  ALNAYS 
IF  VEH. TYPE  (JOB) -TANK 

LET  FP.OAM  (JOB)  -UNI FORM. F  (0. .  I .  .2) 

LET  NOB.  DAH  (JOB)  -UNI FORM. F  (0. . MAX. DAN.  3) 

GO  OOMN 

ELSE  LET  FP.OAM  (JOB)  -UNIFORM.  F(0.,  1..  2) 

LET  NOB. DAN  (JOB)  -UNI FORM. F  (0.  .MAX. DAN. 3) 

GO  OOMN 

*0N*  LET  X-RANOOH.F(S) 

IF  X  LE  P.HOb  LET  HflB.OAM  (JOB) -UNIFORM. F  (0.  ,.2.3) 

ELSE  LET  FP.  OAM  (JOB) -UNIFORM.  F(0...  2. 2) 

ALWAYS 

’OOMN* 

LET  SPEC. JOB- JOB 

CALL  ASSESS. DAN  GIVEN  SPEC. JOB 

LET  MO-HO.NUM(JOB) 

IF  VEH. TYPE (JOB) -TANK 

PRINT  1  LINE  NITH  MORK. OROER.  TIME.V.  VEH.  TYPE  (JOB) .  UNIT  (JOB).  HOM.OAM, 
FP.OAM  (JOB) ,  MOB. OAM  (JOB)  ,  DAM.REC  (MO.  1)  .OAH.REC  (MO. 21  .  DAN.REC  (MO.  3)  , 
OAM. REC  (MO, H) . DAH. REC  (MO. 5)  . OAH.REC  (MO. 6)  . DAN. REC  (MO. 7)  , DAH. REC  (MO. 8) . 
OAM.  REC  (MO.  9) .  OAM.  REC  (MO.  1 0) .  OAM.  REC  (MO.  1 1 )  THUS 


PRINT  1  LINE  M1TH  MORK. ORDER.  TIME.V.  VEH. TYPE (JOB) .  UNIT(JOB).  HOM.OAM. 
FP.OAM  (JOB) ,  HOB. OAM  (JOB),  OAH.REC  (MO.  I)  .OAH.REC  (MO. 2)  .  OAH.REC  (HO.  3)  , 
OAH.REC  (MO. VI  .DAM. REC  (MO. 5)  .OAH.REC  IMO. 6)  .DAN.REC  (MO. 7)  .OAH.REC  (MO.B) . 
DAM.REC  (NO. 9)  THUS 

M  M#  MM  M  M  M  N«MM  M  «  MM  N. MM  M»MM  M(MM  M, KM  MaMM  M»MM  MaMM  MaMM  MaMM 

ALWAYS 

FOR  EACH  NAINT.UNIT  IN  SUP. BN.  00 

IF  NAME (NAINT.UNIT) -UNIT (JOB)  GO  AHEAD 
ELSE  LOW 

•AHEAD*  LET  SPEC. JOB-JOB  LET  LCVEL-MAINT.UNIT 


51  IF  T . JUHP (HA 1 NT . UNI T I  NE  0.0  AMO  T1ME.V  LT  T. JUHF (MAlNT.UNIT) 

52  SCHEDULE  AN  ARRIVAL  GIVEN  SPEC. JOB  ANO  LEVEL  AT  T. JUHP (HAINT. UNIT) 

53  ELSE  SCHEDULE  AN  ARRIVAL  GIVEN  SPEC. JOB  ANO  LEVEL  NON 

S<«  ALHATS  RETURN 

ss  end 


i; 

»' 

t 

I 

i 


I 


A 
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1  EVENT  ARRIVAL  GIVEN  SPEC. JOB  AND  LEVEL 

2  DEFINE  LEV. HOVE  AS  A  VARIABLE 

S  OEFINE  SPEC. JOB  AND  LEVEL  AS  VARIABLES 

9  LET  JOB-SPEC. JOB  LET  HA1NT . UNIT-LEVEL 

5  ADD  I.  TO  VEH. COUNT (HAINT. UNIT) 

B  IF  (NH. FOLKS (HAINT. UNIT)  LE  1.  AND  HOB.DAH (JOB)  NE  0.)  OR 

7  (NF. FOLKS (HAINT. UNIT)  LE  I.  AND  FP.OAH(JOB)  NE  0.) 

S  LET  LEV. H0VE-HA1NT. UNIT 

9  SCHEDULE  A  HOVE. REAR  GIVEN  SPEC. JOB  AND  LEV. HOVE  IN  (BETA.F  (A  (7. II . 

10  A  (7,2)  .9)  -  IT.  ACTION  (7,  3)  -T. ACTION  (7,1)))  -T.  ACTION  (7.1)  HOURS 

11  FILE  JOB  IN  NT. QUEUE  (HAINT. UNIT)  RETURN  ELSE 

12  IF  INSPECTOR  (HA  1  NT. UN IT1-0 

13  FILE  JOB  IN  Nl. QUEUE  (HAINT. UNIT)  RETURN 

It  ELSE  SUBTRACT  1  FROH  INSPECTOR  (HAINT. UNIT) 

15  IF  NAHE (HAINT. UNIT) >0 

16  LET  TI.T1HE-  (BETA.F  (A  (1.1)  .A  (1.2)  ,  U)  -  (T.  ACTION  (1.3)  -T. ACTION  (1,11)1  + 

17  T. ACTION  (1, 1) 

10  SCHEDULE  A  DIAGNOSIS  GIVEN  SPEC. JOB  AND  LEVEL  IN  TI.T1HE  HOURS 

19  RETURN 

20  *  *AT  COHPANT " " 

21  ELSE  LET  TI.T1HE-(B£TA.F(A(2.1)  ,  A  (2.2)  ,H)  «  (T.  ACTION  (2.3) -T.  ACTION  (2. 11) )  ♦ 

22  T. ACTION  (2, 1) 

23  SCHEDULE  A  DIAGNOSIS  GIVEN  SPEC. JOB  AND  LEVEL  IN  TI.TIHE  HOURS 

29  RETURN 

2S  END 
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t  EVENT  REPAIR  GIVEN  A.CREN.  SPEC. JOB  AND  LEVEL 

2  DEFINE  NO  AS  A  VARIABLE 

S  DEFINE  JOB. CAN  AS  A  VARIABLE 

«  DEFINE  CAN  AS  A  VARIABLE 

5  DEFINE  SPEC. JOB  ANO  LEVEL  AS  VARIABLES 

B  DEFINE  A.CREN  AS  A  VARIABLE 

7  LET  CREN- A.CREN  LET  JOB- SPEC. JOB 

8  LET  NO  -  NO.  NUN  (JOB) 

9  LET  NA1NT. UNIT-LEVEL 

10  IF  IN.  CAN  (JOB)  NE  0 

11  CALL  SUBSTITUTE  GIVEN  SPEC. JOB.  LEVEL  ANO  A.CREN 

12  ADO  1  TO  CAN. FIX 

13  ALHATS 

IN  IF  MISSION  (CREN) -AUTO  LET  HOB. DAN  (JOB) -0. 

15  IF  JOB  IS  IN  AUTOHOTIVE  REMOVE  JOB  FROM  AUTOMOTIVE  ALNATS 

16  ELSE  LET  FP.DAM (JOB) -0. 

17  IF  JOB  IS  IN  ARMAMENT  REMOVE  JOB  FROM  ARMAMENT  ALNATS 

16  ALHATS  IF  FP.DAM (JOB) -0.  AND  HOB. DAM (JOB) -0. 

19  IF  JOB  IS  IN  CLOSED. JOB  GO  LOOK  0TMERN1SE 

20  LET  DOMN.TIHE-TIHE. V-TlHE.DOHN (JOB) 

21  HOD  1  TO  NUH. RET. BATTLE  FILE  JOB  IN  CLOSED. JOB 


22 

IF 

JOB 

IS 

IN 

AUTOHOTIVE 

REMOVE 

JOB 

FROM 

AUTOMOTIVE 

ALHATS 

29 

IF 

JOB 

IS 

IN 

ARMAMENT 

REMOVE 

JOB 

FROM 

ARMAMENT 

ALHATS 

29 

IF 

JOB 

IS 

IN 

NT. QUEUE 

REMOVE 

JOB 

FROM 

NT. QUEUE 

ALHATS 

25 

IF 

JOB 

IS 

IN 

HS.QUEUE 

REMOVE 

JOB 

FROM 

HS.QUEUE 

ALHATS 

26 

IF 

JOB 

IS 

IN 

Nl. QUEUE 

REMOVE 

JOB 

FROM 

Ml. QUEUE 

ALHATS 

27 

IF 

JOB 

IS 

IN 

HP. QUEUE 

REMOVE 

JOB 

FROM 

HP. QUEUE 

ALHATS 

26  SUBTRACT  I.  FROM  VEH. COUNT (NAINT.UNIT) 

29  IF  NHO.FlGMT-3  AOO  1  TO  B. ALIVE  GO  LOOK 

50  ELSE  IF  UNIT (JOB) -1  OR  UN1T(J0B)>2  ADD  1  TO  Bl. ALIVE  GO  LOOK 

51  ELSE  AOO  I  TO  82. ALIVE  GO  LOOK 

52  ELSE  IF  JOB  IS  NOT  IN  MS.OUEUE  AND  JOB  IS  NOT  IN  AUTOMOTIVE 

53  ANO  JOB  IS  NOT  IN  ARMAMENT 

9«  FILE  JOB  IN  NS. QUEUE (HRINT. UNIT) 

SS  ELSE  ’LOOK’  IF  NS. QUEUE (MAINT. UNIT)  IS  EMPTT 

96  GO  CONTROL 

97  ELSE  FOR  EACH  JOB  IN  HS.QUEUE (MAINT. UNIT) ,  DO 

96  IF  MISSION  (CREN) -AUTO  ANO  MOB.  DAM  (JOB)  >0. 

99  ANO  JOB  NOT  IN  AUTOMOTIVE  GO  TAKE 

«0  ELSE  IF  MISSION  (CREN) -ARM  AND  FP.DAM  (JOB)  >0. 

«!  ANO  JOB  NOT  IN  ARMAMENT  GO  TAKE 

92  REGARDLESS  ALHATS  LOOP 

99  ’CONTROL’  ”TRT  TO  CANNIBALIZE” 

99  IF  HP. QUEUE  IS  EMPTT  ANO  NT. QUEUE  IS  EMPTT 

9$  LET  OCCUPATION (CREN) -IDLE  RETURN 

96  ELSE  FOR  EACH  JOB  IN  NP. QUEUE (MAINT. UNIT) .  00 

97  IF  (FP.DAM  (JOB) -0.  ANO  Ml  SS  I  ON  (CREN)  -ARM)  OR  (MOB.  DAM  (JOB) -0.  ANO 

96  MISSION  (CREN) -ARM)  GO  OOMN 

99  ELSE 

SO  LET  JOB. CAN- JOB 
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51 

52 

53 
511 

55 

56 

57 
56 

59 

60 
61 
62 
63 
611 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 
83 

an 

85 

86 

87 

88 

89 

90 

91 

92 

93 
91 

95 

96 

97 

98 

99 

100 


CALL  CANNIBAL  GIVEN  JOB. CAN  AND  LEVEL  YIELDING  CAN 
LET  SPEC.JOB-JOB 
LET  NfllNT. UNIT-LEVEL 
IF  CAN-0  GO  OOHN 
ELSE 

CALL  SUBSTITUTE  GIVEN  SPEC. JOB.  LEVEL  AND  A. CAEN 
IF  MISSION  (CREHI -ARM 

LET  T.  ARM.  REP- (BETA. F  (Adi.!)  .A  (4.2)  .6)  -  (T.  ACTION  (1. 3)  -T.  ACTION  (4, 1) ))  ♦ 
T.  ACTION  (4.1) 

SCHEDULE  A  REPAIR  GIVEN  A.CREH.  SPEC. JOB  AND  LEVEL  IN  T. ARM. REP  HOURS 
FILE  JOB  IN  ARMAMENT (MAINT. UNIT) 

ELSE 

LET  T. AUTO. REP-  1BETA.F  (A  (3. 1)  .A  (3.2)  .6)  -  (T. ACTION  (3.3)  -T.  ACTION  (3. 1) )  I  ♦ 
T.  ACTION  (3.1) 

SCHEOULE  A  REPAIR  GIVEN  A.CREH.  SPEC. JOB  AND  LEVEL  IN  T. AUTO. REP  HOURS 
FILE  JOB  IN  AUTOMOTIVE  (MAINT. UNIT) 

ALHATS  RETURN 
•OOHN*  LOOP 

IF  NAME (MAINT. UNIT) -CO. HRINT  LET  OCCUPATION  (CREM) -IDLE  RETURN 
ELSE  FOR  EACH  JOB  IN  HT. QUEUE (MAINT. UNIT) .  00 
IF  JOB  IS  IN  AUTOMOTIVE  OR  JOB  IS  IN  ARMAMENT 
FOR  EACH  MOVE. REAR  IN  EV. S  (I .MOVE. REAR)  HITH  HO. NUM  (SPEC. MOVE)  EQ 
HO.  NUN  (JOB)  ,  DO 

CANCEL  THE  MOVE. REAR  DESTROY  THE  HOVE. REAR 
REMOVE  THE  JOB  FROM  HT. QUEUE (MAINT. UNIT)  LOOP  GO  OUT  ALHATS 
IF  (FP.OAM  (JOB)  -0.  AND  MISSION  (CREH) -ARM)  OR  (HOB.DAH  (JOB) -0.  AND 
MISSION  (CREH) -AUTO)  GO  OUT 
ELSE 

LET  JOB. CAN- JOB 

CALL  CANNIBAL  GIVEN  JOB. CAN  AND  LEVEL  YIELDING  CAN 
LET  SPEC.JOB-JOB 
LET  MAINT. UNIT-LEVEL 
IF  CAN-0  GO  OUT 
ELSE 

CALL  SUBSTITUTE  GIVEN  SPEC. JOB.  LEVEL  AND  A.CREH 
IF  MISSION  (CREH) -ARM 

LET  T .  ARM.  REP-  (BETA.  F  (A  (4 . 1 )  ,  A  (4 . 2)  .  6)  -  (T .  ACT  I  ON  (4 , 3)  -T .  ACT  I  ON  (4 . 1  > ) )  ♦ 
T.  ACTION  (4,1) 

SCHEOULE  A  REPAIR  GIVEN  A.CREH.  SPEC. JOB  AND  LEVEL  IN  T. ARM. REP  HOURS 
FILE  JOB  IN  ARMAMENT (MAINT. UNIT) 

ELSE 

LET  T. AUTO. REP-  (BETA.F  (A  (3. 1)  .A  (3. 2)  .6)  «  (T.  ACTION  (3. 3)  -T. ACTION  (3, 1) ) )  ♦ 
T. ACTION  (3.1) 

SCHEOULE  A  REPAIR  GIVEN  A.CREH.  SPEC. JOB  AND  LEVEL  IN  T. AUTO. REP  HOURS 
FILE  JOB  IN  AUTOMOTIVE (MAINT. UNIT) 

ALHATS  RETURN 
•OUT •  LOOP 

LET  OCCUPATION (CREH) -IDLE  RETURN 

•TAKE*  REMOVE  JOB  FROM  KS. QUEUE  (MAINT. UNIT) 

LET  SPEC.JOB-JOB 
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10!  IF  MISSION  (CREW) -ARM  ANO  FP. DAM  (JOB)  NE  0. 

102  LET  T.  ARM.  REP-  (BETA.  F  (A  (LI.  1)  .A  Oi.2)  .6)  «  (T.  ACTION  (V,  3)  -T.  ACTION  (H.  1) ))  ♦ 

103  T.  ACTION  W.  1) 

ION  LET  REP. UNIT (JOB) -NAME  (HAINT. UNIT) 

105  SCMEOULE  A  REPAIR  GIVEN  A.CREM.  SPEC. JOB.  LEVEL  IN  T. ARM. REP UOB)  HOURS 

108  LET  ARM.REP. TIHE-T. ARM.REP (JOB) 

107  FILE  JOB  IN  ARMAMENT  (HAINT. UNIT)  RETURN 

108  ELSE  IF  MISSION  (CREH) -AUTO  ANO  HOB. DAM (JOB)  NE  0. 

109  LET  T.  AUTO.  REP- (BETA.  F  (A  (3.1)  .A  (3. 2)  .6)  «  (T.  ACTION  (3. 3) -T.  ACT  ION  (3. 1) ) )  ♦ 

110  T. ACTION  (3, 1) 

111  LET  REP. UNIT  (JOB) -NAME (MA1NT. UNIT) 

112  SCHEDULE  A  REPAIR  GIVEN  A. CREH.  SPEC. JOB.  LEVEL  IN  T. AUTO. REP  (JOB)  HOURS 

113  LET  M. REP. T1ME-T. AUTO. REP (JOB) 

11V  FILE  JOB  IN  AUTOMOTIVE  (HAINT. UNIT)  RETURN 

115  ELSE  RETURN 

116  ENO 
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1  EVENT  PARTS. CONE  GIVEN  SPEC. JOB  AND  LEVEL 

2  DEFINE  BAT  AND  FBAT  AS  VARIABLES 

3  DEFINE  SPEC. JOB  AND  LEVEL  AS  VARIABLES 

4  DEFINE  A.CREU  AS  A  VARIABLE 

5  LET  HAINT. UNIT-LEVEL  LET  JOB-SPEC. JOB 

6  IF  JOB  IS  IN  HS. QUEUE  RETURN  ELSE 

7  IF  JOB  IS  NOT  IN  HP. QUEUE  RETURN  ELSE 

8  REMOVE  THIS  JOB  FROM  UP. QUEUE  (HA1NT. UNIT) 

9  IF  JOB  IS  IN  AUTOMOTIVE  GO  DOUN  OTHERWISE 

ID  IF  MOB. OAM (JOB) >0. 

11  FOR  EACH  CREU  IN  SHOP (MAINT. UNIT)  U1TH  MISSION  (CREW) -AUTO. DO 

12  IF  OCCUPATION  (CREU) -IDLE  LET  BAT-1  LET  A.CREH-CREH 

13  GO  OUTSIDE 

14  ELSE  LOOP 

15  ’OUTSIDE '  IF  BAT-1 

16  LET  T.  AUTO.  REP-  (BETA.F  (A  IS.  1)  .  A  (3. 2)  .  S)  -  (T.  ACT  ION  (3. 3) -T.  ACTION  (3. 1)  11* 

17  T. ACTION  (3. 1) 

18  LET  REP.UNIT (JOB) -NAME (MAINT. UNIT) 

19  SCHEDULE  A  REPAIR  GIVEN  A.CREU.  SPEC. JOB.  LEVEL  IN  T. AUTO. REP  (JOB)  HOURS 

20  LET  M.REP.T1ME-T. AUTO. REP (JOB) 

21  FILE  JOB  IN  AUTOMOTIVE (MAINT. UNIT) 

22  ELSE  FILE  JOB  IN  MS. QUEUE (MAINT. UNIT) 

23  REGARDLESS  ALNATS  ’DOUN*  IF  JOB  IS  IN  ARMAMENT  GO  ON  OTHERWISE 

24  IF  FP.OAM  (JOB) -0.  GO  BETOND  ELSE 

25  FOR  EACH  CREU  IN  SHOP (MAI NT. UN IT)  WITH  MISSION (CREU) -ARM.  00 

26  IF  OCCUPATION (CREU) -10LE  LET  FBAT-1  LET  A.CREH-CREH 

27  GO  BETONO 

28  ELSE  LOOP 

29  ’BETONO'  IF  FBAT-1 

30  LET  T .  ARM.  REP-  (BETA.  F  (A  (4 , 1 )  .  A  (4 , 2) .  6)  -  (T .  ACT  ION  (4.3)  -T.  ACTION  (4,11)1  + 

31  T.  ACTION  (4.1) 

32  LET  REP.UNIT (JOB) -NAME (MAINT. UNIT) 

33  SCHEOULE  A  REPAIR  GIVEN  A.CREH.  SPEC. JOB.  LEVEL  IN  T. ARM. REP  (JOB)  HOURS 

34  LET  ARH.REP.TIME-T.ARM.REP (JOB) 

35  FILE  JOB  IN  ARMAMENT (MAI NT. UN IT) 

36  ELSE  IF  JOB  IS  NOT  IN  NS.OUEUE 

37  FILE  JOB  IN  HS. QUEUE  (MAINT. UNIT) 

38  REGAROLESS  ALNATS  'ON'  RETURN 

39  END 


150 


EVENT  DIAGNOSIS  GIVEN  SPEC. JOB  AND  LEV.DIAG 
DEFINE  LEV. ARB  AS  A  VARIABLE 
DEFINE  LEVEL  AS  A  VARIABLE 

DEFINE  BAT.  FBAT,  CAN.  FP.  LEV.DIAG.  SPEC. JOB  AS  VARIABLES 

DEFINE  A.CREH  AS  A  VARIABLE 

DEFINE  P. PARTS.  X  AND  P.FIX  AS  REAL  VARIABLES 

DEFINE  CAN. VEH  AS  A  1 -DIMENSIONAL  ARRAT 

LET  LEVEL  -LEV.DIAG 

LET  JOB-SPEC. JOB  LET  HAlNT. UNIT-LEVEL 
IF  VEH. TYPE (JOB) -TANK  LET  FP-11 
ELSE  LET  FP-9 

ALHATS  ADO  1  TO  INSPECTOR (HAlNT. UNIT) 

IF  NAME (NAINT. UNIT) >0  LET  P.FIX-P.FIX.FHO 
LET  P.PARTS-PR. HAVE. PARTS. FMO 
ELSE  LET  P.FIX-P.CO.FIX  LET  P.PARTS-PR. REAR. HAVE. PARTS 
ALHATS  IF  HOB. DAM  (JOB) >P.F!X  OR  FP.DAH (JOB) >P.FIX  GO  EVAC. MAYBE 
ELSE  LET  X-UNIFORH.F  (0. ,  ).,  it) 

IF  X>P. PARTS  "NEED  PARTS.  TRY  TO  CANNIBALIZE  *  * 

CALL  CANNIBAL  GIVEN  SPEC. JOB  AND  LEVEL  YIELDING  CAN 
LET  HAlNT. UNIT-LEVEL 
LET  JOB-SPEC. JOB 
IF  CAN-0  GO  EVAC. MAYBE 

OTHERNISE  ELSE  ' 'HAVE  PARTS*'  IF  HOB. DAH (JOB) >0.0 

FOR  EACH  CREM  IN  SHOP (HAlNT. UNIT)  HITH  MISSION  (CREM) -AUTO.  DO 
IF  OCCUPATION (CREM) -1 OLE  LET  BAY-1  LET  A.CREM-CREM 
GO  FIX 
ELSE  LOOP 
•FIX*  IF  BAY-1 

LET  T. AUTO. REP-  (BETA.F  (A  (3,1)  .A  (3.2)  .6)  «  IT. ACTION  (3. 3)  -T.  ACTION  (3.  J ) ) )  ♦ 
T. ACTION  (3. 1) 

LET  REP. UNIT (JOB) -NAME  (HAlNT. UNIT) 

SCHEDULE  A  REPAIR  GIVEN  A. CREM.  SPEC. JOB.  LEVEL  IN  T. AUTO. REP  (JOB)  HOURS 
LET  H. REP. TIHE-T. AUTO. REP (JOB) 

FILE  JOB  IN  AUTOMOTIVE (HA I NT. UN IT) 

ELSE  FILE  JOB  IN  MS. QUEUE (MAINT. UNIT) 

REGAR0LES3 

ALHATS  REGARDLESS  IF  FP.DAH (JOB) -0.  GO  NEXT 

ELSE  FOR  EACH  CREM  IN  SHOP  (MAI  NT.  UN  IT)  MITH  MISSION  (CREM) -ARM.  DO 
IF  OCCUPATION  (CREM) -IOLE  LET  FBAY-I  LET  A.CREM-CREM 
GO  BEYONO 
ELSE  LOOP 
’BETONO*  IF  FBAT- I 

LET  T.ARH.  REP-  (BETA.  F  (A  (W .  1 1  ,A(1.2)  .6)  -  (T.  ACTION  Hi.  3)  -T.  ACTION  (U.  1) ) )  ♦ 

T.  ACTION  m.II 

LET  REP. UNIT  (JOB) -NAME  (HAlNT. UNIT) 

SCHEOULE  A  REPAIR  GIVEN  A.CREH.  SPEC. JOB,  LEVEL  IN  T.ARH. REP  IJOBI  HOURS 
LET  ARH. REP. TIHE-T. ARH. REP (JOB) 

FILE  JOB  IN  ARHAHENT (HAlNT. UNIT)  GO  NEXT 
ELSE  IF  JOB  IS  NOT  IN  HS. QUEUE 
FILE  JOB  IN  HS. QUEUE (HAlNT. UNIT)  GO  NEXT 


51  'EVAC.MAYBE'  REGAROLESS  IF  NAME (MR1NT. UNIT) >0 

52  IF  MOB. DAM (JOB) <.2  SCHEDULE  A  HOVE. REAR  GIVEN  SPEC. JOB  ANO  LEVEL  NOM 

53  ELSE  SCHEDULE  A  HOVE. REAR  GIVEN  SPEC. JOB  AND  LEVEL  IN 

59  (BETA.F  (A  (7.1)  .A  (7.2)  .9)  «  (T. ACTION  (7. 3)  -T. ACTION  (7.1)))  -T. ACTION  17, 1) 

55  HOURS 

SB  ALNATS 

57  FILE  JOB  IN  NT. QUEUE (HA1NT. UNIT) 

58  GO  NEXT 

59  ELSE  IF  MOB. OAM (JOBI »P.FIX  OR  FP.OAM (JOB) >P.FIX 

60  SCHEOULE  A  HOVE. REAR  GIVEN  SPEC. JOB  AND  LEVEL  IN 

61  (BETA.F  (A  (8.1) ,  A  (8.2)  ,9)  m  (T.  ACTION  (8. 3)  -T.  ACTION  (8.1)))  *T.  ACTION  (8, 1) 

62  HOURS 

63  FILE  JOB  IN  NT. QUEUE (HAINT. UNIT)  GO  NEXT 

6V  ELSE  FILE  JOB  IN  HP. QUEUE (HAINT. UNIT) 

65  LET  T.PART .  CONES*  (BETA.F  (A  (5, 1) ,  A  (5,2)  .6)  m  (T.  ACTION  (5. 3)  ~ 

66  T.  ACTION  (5, 1)  1 1  +T.  ACTION  (5, 1 ) 

67  SCHEDULE  A  PARTS. COME  GIVEN  SPEC. JOB  AND  LEVEL  IN 

66  T.PART. COMES  HOURS 

69  ‘NEXT* 

70  LET  LEVEL  -LEV.OIAG 

71  IF  MI. QUEUE  IS  EMPTY  RETURN 

72  ELSE  REMOVE  FIRST  JOB  FROM  HI .QUEUE  (LEVEL)  LET  SPEC. JOB-JOB 

73  SUBTRACT  1  FROM  INSPECTOR  (LEVEL) 

7(1  IF  NAME  (LEVEL)  >0 

75  LET  TI  .TIME-  (BETA.F  (A  (1 . 1)  .A  (1.2)  .Dm  (T.  ACTION  (1,3)  -T.  ACTION  (1,1)11* 

76  T.  ACT  ION  (1.1) 

77  SCHEOULE  A  DIAGNOSIS  GIVEN  SPEC. JOB  AND  LEVEL  IN  T I. TIME  HOURS 

78  RETURN 

79  * 'AT  COMPANY  ' ' 

80  ELSE  LET  T I.  TIME-  (BETA.F  (A  (2, 1)  ,  A  (2.2)  .11)  ■  (T.  ACTION  (2,3)  -T.  ACT  I  ON  (2.1)))* 

81  T.  ACT  I  ON  (2,  II 

82  SCHEDULE  A  DIAGNOSIS  GIVEN  SPEC.JOB  AND  LEVEL  IN  TI.TIHE  HOURS  RETURN 
03  END 
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1  EVENT  MOVE. REAR  GIVEN  SPEC. JOB  RNO  LEVEL 

2  DEFINE  LEV. ARR  AS  A  VARIABLE 

3  DEFINE  SPEC. JOB  AND  LEVEL  AS  VARIABLES 

II  LET  HAINT. UNIT-LEVEL  LET  JOB-SPEC. JOB 

5  IF  THIS  JOB  IS  NOT  IN  NT. QUEUE  RETURN 

6  ELSE  SUBTRACT  1.  FROM  VEH. COUNT  (MAINT. UNIT! 

7  BEHOVE  THIS  JOB  FROH  NT. QUEUE (HAINT. UNIT! 


a 

IF 

JOB 

IS 

IN 

AUTOMOTIVE 

REHOVE 

JOB 

FROH 

AUTOMOTIVE 

ALWAYS 

9 

IF 

JOB 

IS 

IN 

ARHAHENT 

REHOVE 

JOB 

FROH 

ARHAHENT 

ALWAYS 

10 

IF 

JOB 

IS 

IN 

NT. QUEUE 

REHOVE 

JOB 

FROH 

HT. QUEUE 

ALWAYS 

n 

IF 

JOB 

IS 

IN 

NS. QUEUE 

REHOVE 

JOB 

FROH 

HS. QUEUE 

ALWAYS 

12 

IF 

JOB 

IS 

IN 

HI. QUEUE 

REMOVE 

JOB 

FROH 

Hi. QUEUE 

ALWAYS 

13 

IF 

JOB 

IS 

IN 

HP. QUEUE 

REHOVE 

JOB 

FROM 

HP. QUEUE 

ALWAYS 

14  IF  NAHE (HAINT. UNIT) >CO. HAINT 

15  FOR  EACH  HAINT. UNIT  IN  SUP. BN.  DO 

16  IF  NAHE (HAINT. UNIT) -CO. HAINT  GO  AHEAD 

17  ELSE  LOOP 

18  'AHEAD'  LET  LEV. ARA-HA1NT. UNIT 

19  LET  HAINT. UNIT-LEVEL 

20  SCHEOULE  AN  ARRIVAL  GIVEN  SPEC. JOB  AND  LEV. ARR  IN  (BETA.F (A (6. 1) . A 16. 2) .9) 

21  «  (T.  ACTION  (6. 3)  -T. ACTION  (6.1)))  *T.  ACTION  (6,1)  HOURS 

22  ELSE 

23  IF  JOB  IS  NOT  IN  EVAC.JOB  FILE  JOB  IN  EVAC.JOB 

21  ROD  1  TO  NUH.E VAC. REAR  ALWAYS 

25  REGAAOLESS  RETURN 

26  END 
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1  EVENT  DAYLIGHT 

2  IF  TIHE. V-HOURS.  V  LT  LEAD. TIME  RETURN 

3  ELSE  IF  LIGHT. STAT  -  OAT 

0  LET  LIGHT. STAT-NIGHT 

5  LET  CCSL-.5-CCSL 

6  LET  CCSU-.5-CCSU 

7  LET  LS-.l 

6  LET  TH-l.S-TH 

9  LET  PR.1NC.10-.3 

10  LET  0-2. mO 

11  LET  SETUP. T1HE-2. -SETUP. TIHE 

12  LET  CON. SPEE0-. 5-CON. SPEED 

13  SCHEDULE  A  DAYLIGHT  IN  9  HOURS 

11  RETURN 

15  ELSE  LET  LIGHT. STAT-OAY 

16  LET  CCSL-2.-CCSL 

17  LET  CCSU-2.-CCSU 

18  LET  LS-LOS.PR 

19  LET  TH-TH/1 .5 

20  LET  PR.1NC.I0-PR.DAT. INC 

21  LET  0-0. 5-0 

22  LET  SETUP. T1HE-. 5-SETUP. TIHE 

23  LET  CON. SPEED-2. -CON. SPEED 

21  SCHEDULE  A  DAYLIGHT  IN  15.  HOURS 

25  RETURN 

26  ENO 
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49 

50 


EVENT  JUMP  GIVEN  LEV. JUMP 

DEFINE  LEV. JUMP  AS  A  VARIABLE 

DEFINE  F.TIHE  AND  J.T1HE  AS  REAL  VARIABLES 

LET  NA1NT. UNIT-LEV. JUMP 

LET  J. TIME-HCPO. ZERO/CON. SPEED-SETUP. T1HE/M1NUTES.V 
SCHEDULE  A  GET. THERE  GIVEN  LEV.JUHP  IN  J.TIHE  HOURS 
FOR  EACH  JOB  IN  US. QUEUE (HA1 NT. UNIT) ,  DO 

IF  H08.DAH  (JOB)  GT  0.2  AND  JOB  IS  NOT  IN  ARHAHENT  ANO  JOB  IS  NOT  IN 
AUTOHOTIVE 

REHOVE  THE  JOB  FROH  NS. QUEUE (HAINT. UNIT) 

OESTROT  THE  JOB 

SUBTRACT  1.  FROH  VEH. COUNT  (HAINT. UNIT) 

ALNATS  LOOP 

FOR  EACH  JOB  IN  HI. QUEUE (HAINT. UNIT) .  DO 
IF  MOB.OAHIJOB)  GT  0.2 
REMOVE  THE  JOB  FROH  HI .QUEUE (HAINT. UNIT) 

OESTROT  THE  JOB 

SUBTRACT  1.  FROH  VEH. COUNT (HAINT. UNIT) 

ALNATS  LOOP 

FOR  EACH  JOB  IN  NT. QUEUE (HAINT. UNIT) .  DO 

FOR  EACH  HOVE. REAR  IN  EV. S  (I .HOVE. REAR)  M1TH  SPEC. JOB-JOB,  DO 
IF  T I  HE .  A  (HOVE .  RE  AR)  >  ( 1 5 .  /  (HOURS .  V-H I NUTES .  V) )  *  T I  HE .  V 
CANCEL  THE  HOVE. REAR  OESTROT  THE  HOVE. REAR 
IF  JOB  IS  IN  NS.OUEUE  REHOVE  JOB  FROH  US. QUEUE  ALNATS 

IF  JOB  IS  IN  ARHAHENT  REHOVE  JOB  FROH  ARHAHENT  ALNATS 

IF  JOB  IS  IN  AUTOHOTIVE  REHOVE  JOB  FROH  AUTOHOTIVE  ALNATS 
IF  JOB  IS  IN  UP. QUEUE  REHOVE  JOB  FROH  MP. QUEUE  ALNATS 

IF  JOB  IS  IN  NT. QUEUE  REHOVE  JOB  FROH  NT. QUEUE  ALNATS 

OESTROT  THE  JOB 

SUBTRACT  1.  FROH  VEH.COUNT  (HAINT. UNIT) 

ALNATS  LOOP 
LOOP 

FOR  EACH  JOB  IN  ARHAHENT (HAINT. UNIT) ,  DO 

FOR  EACH  REPAIR  IN  EV.S (I . REPAIR)  NITH  SPEC. REP (REPAIR) -JOB  ANO 
LEV. REP (REPAIR) -HAINT. UNIT.  DO 
IF  HOB. DAH (JOB) >0.0 
LET  OCCUPATION (A. CREN)- I OLE 
CANCEL  THE  REPAIR  OESTROT  THE  REPAIR 
IF  JOB  IS  IN  ARHAHENT  REHOVE  JOB  FROH  ARHAHENT  ALNATS 
IF  JOB  13  IN  NS. QUEUE  REMOVE  JOB  FROH  NS.OUEUE  ALNATS 
IF  JOB  IS  IN  AUTOHOTIVE  REHOVE  JOB  FROH  AUTOHOTIVE  ALNATS 
OESTROT  THE  JOB 

SUBTRACT  1.  FROM  VEH.COUNT (HAINT. UNIT) 

ELSE  LET  F.TIHE  -  TIME. A  (REPAIR) -TIME. V 
CANCEL  THE  REPAIR 

RESCHEDULE  THIS  REPAIR  IN  (F. TIME-HOURS. V) -J. TIME  HOURS 
ALNATS  LOOP 
LOOP 

FOR  EACH  JOB  IN  AUTOHOTIVE (HAINT. UNIT) .  DO 

FOR  EACH  REPAIR  IN  EV.S(l.REPRIR)  NITH  SPEC.  REP  (REPAIR) -JOB  AND 
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51  LEV. REP  (REPAIR) -MA1NT. UNIT.  DO 

52  LET  OCCUPATION (A. CREH) -IDLE 

53  CANCEL  THE  AEPA1A  OESTAOT  THE  REPAIR 

51  REMOVE  THE  JOB  FROM  AUTOMOTIVE (MAINT. UNIT) 

55  IF  JOB  IS  IN  NS. QUEUE  REMOVE  JOB  FROM  US. QUEUE  ALHATS 

56  IF  JOB  IS  IN  ARMAMENT  REMOVE  JOB  FROM  ARMAMENT  ALHATS 

57  OESTROT  THE  JOB 

SB  SUBTRACT  1.  FROM  VEH. COUNT  IMA1NT. UNIT) 

59  LOOP  LOOP 

60  LET  T.JUMP (MA1NT. UNIT) -TIME. V*J. TIME/HOURS. V 

61  RETURN 

62  END 
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EVENT  CET. THERE  GIVEN  LEV. GET 

DEFINE  LEV. GET.  SPEC. J06,  CRN.  LEV. HOVE.  FP.  A. CREW.  J  RS  VARIABLES 
LET  HA1NT. UNIT-LEV. GET 
LET  T.JUHP (HAINT. UNIT) -0.0 

FOR  EACH  J06  IN  NS. QUEUE (HA1NT.UNIT)  NITH  IN. CAN (JOB)  NE  0.  00 
IF  VEH.TTPE-TANK  LET  FP-tl 
ELSE  LET  FP-9  ALUATS 

FOR  J-l  TO  FP  LET  CAN.REC  (IN.  CAN  (JOB)  .  J) -0 
LET  SPEC. JOB- JOB 

CALL  CANNIBAL  GIVEN  SPEC. JOB  AND  LEV. GET  YIELDING  CAN 
IF  CAN-0  REHOVE  JOB  FROH  NS. QUEUE  (HAINT. UNIT) 

FOR  EACH  HAINT. UNIT  IN  SUP. BN  NITH  NAHE  (HAINT. UNIT) -0 
LET  LEV. H0VE-HA1NT. UNIT 

IF  HOB.OAH (JOB) <0.2  SCHEDULE  A  HOVE. REAR  GIVEN  SPEC. JOB  AND 
LEV. HOVE  NON 
LET  HAINT. UNIT-LEV. GET 
FILE  JOB  IN  NT. QUEUE (HAINT. UNIT) 

ELSE  SCHEDULE  A  HOVE. REAR  GIVEN  SPEC. JOB  ANO  LEV. HOVE  IN 
(8ETA.F  (A  (7, 1)  .A  (7.2)  .9)  «  (T .ACTION  (7, 3)  -T.  ACTION  (7. 1) ) ) 

♦T. ACTION (7.1)  HOURS 

FILE  JOB  IN  NT. QUEUE  (HAINT. UNIT) 

ALWAYS  LET  HAINT. UNIT-LEV. GET 
ALWAYS  LOOP 

IF  WS. QUEUE  IS  EHPTT  GO  ON  ELSE 

FOR  EACH  CREW  IN  SHOP (HAINT. UNI T)  WITH  OCCUPATION (CREW) -IDLE.  00 
IF  H1S310N  (CREW) -AUTO 

FOR  EACH  JOB  IN  WS. QUEUE (HAINT. UNIT) .  DO 

IF  HOB.OAH (JOB) >0  ANO  JOB  IS  NOT  IN  ARHAHENT 
ANO  JOB  IS  NOT  IN  AUTOHOTIVE 
REHOVE  JOB  FROH  WS. QUEUE 
FILE  JOB  IN  AUTOHOTIVE  LET  SPEC. JOB-JOB 
LET  A. CREW-CREW 

LET  T.  AUTO.  REP-  (BETA.  F  (A  (3, 1 )  ,  R  (3. 2) ,  6)  ••  (T .  ACT  I  ON  (3. 3)  - 
T.  ACT  I  ON  (3. 1) )  )*T.  ACTION  (3,1) 

SCHEOULE  A  REPAIR  GIVEN  A. CREW.  SPEC. JOB  AND  LEV. GET  IN 
T. AUTO. REP  HOURS 
ALWAYS  LOOP 

ELSE  FOR  EACH  JOB  IN  WS.OUEUE (HAINT. UNIT) .  00 
IF  FP.OAH(JOB)>0.0  ANO  JOB  IS  NOT  IN  AUTOHOTIVE 
.  ANO  JOB  IS  NOT  IN  ARHAHENT 

REHOVE  JOB  FROH  WS.OUEUE (HAINT. UNIT) 

FILE  JOB  IN  ARHAHENT (HAINT. UNIT) 

LET  SPEC. JOB- JOB  LET  A. CREW-CREW 

LET  T.  ARH.  REP-  (BETA.  F  (A  19 , 1 )  .  A  (9 . 2) .  81 «  (T .  ACT  I  ON  (9 . 3)  - 
T.  ACTION  (9.1)))  *T.  ACTION  (9, )) 

SCHEOULE  A  REPAIR  GIVEN  A. CREW.  SPEC. JOB  AND  LEV. GET  IN 
T. ARH. REP  HOURS 
ALNATS  LOOP 
ALNATS  LOOP 
’ON*  RETURN  ENO 
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1  EVENT  STOP. SIMULATION 

2  DEFINE  IOENT  AS  AN  ALPHA  VARIABLE 

S  DEFINE  LOS. RAT.  PER.FIX.REC.  PR.REP.DAH.  P. TROOPS.  TROOPS  AS  REAL  VARIABLES 

9  FOR  EACH  HA1NT.UNIT  IN  SUP. BN.  00 

S  ADD  NH. FOLKS (HA1NT. UNIT)  TO  TROOPS 

8  ADD  NF. FOLKS IHA1NT. UNIT)  TO  TROOPS  LOOP 

7  LET  LOS. RAT-S.R. CAS/S. CAS 

8  LET  PER. F I X. REC-NUH. RET. BATTLE/SUH. REC 

S  LET  PA.REP.OAN-NUH. RET. BATTLE/S. CAS 

10  LET  P. TROOPS* TROOPS/TOT. FOLKS 

11  PRINT  S  LINES  U1TH  T1NE.V  THUS 

12 

13  SIMULATION  ENDED  AFTER  «m.k  OATS 

19 

15  HERE  ARE  THE  RESULTS  FOR  RECOVERY  AND  EVACUATION 

16 

17  PRINT  S  LINES  HITH  SUN. REC.  SUM. NEED. REC.  HERN. REC  AND  AVC.NEEO  THUS 

18  *»*  VEHICLES  RECOVERED  kmk  VEHICLES  NEEDED  RECOVERY 

19 

20  MEAN  NUMBER  OF  VEHICLES  RECOVERED  PER  ATTACK  ««*. 

21 

22  MEAN  NUMBER  OF  VEHICLES  NEED1NC  RECOVERY  PER  ATTACK  mm*. 

29  PRINT  3  LINES  THUS 

29 

25  HERE  ARE  THE  MAINTENANCE  RESULTS 

26 

27  PRINT  8  LINES  HITH  HORK.OROER.  NUM.RET. BATTLE.  NUH.E VAC. REAR  AND 

28  CAN. FIX  THUS 

29  NUMBER  OF  JOBS  RECE1VE0 

90 

31  NUMBER  OF  JOBS  REPAIRED  »■•»»« 

32 

33  NUMBER  OF  JOBS  EVACUATEO  *»««» 

39 

95  NUMBER  OF  SUCCESSFUL  CANN I BAL I Z AT  1 ONS  «««* 

36 

37  PRINT  2  LINES  HITH  MEAN. OOHN. TIME  THUS 

98  AVERAGE  REPAIR  CYCLE  TIME  .  DAYS 

39 

90  PRINT  9  LINES  HITH  MEAN. AUTO. REP  AND  MEAN. ARM. REP  AS  FOLLOHS 

91  AVERAGE  REPAIR  TIME  FOR  AUTOMOTIVE  JOBS  HAS  »«.«*««  HOURS 

92 

93  AVERAGE  REPAIR  TIME  FOR  ARMAMENT  JOBS  HRS  HOURS 

99 

95  PRINT  9  LINES  HITH  AVG.HP.TINE  AND  MEAN. TI. TIME  THUS 

96  AVERAGE  TIME  A  JOB  HAITS  FOR  PARTS  IS  mh.mmmm  HOURS 

97 

99  AVERAGE  TIME  A  JOB  HAITS  FOR  INSPECTION  IS  hm.mhmk  HOURS  (COMPANY) 

99 

50  PRINT  10  LINES  HITH  LOS. RAT.  PER.FIX.REC.  PR.REP.DAH,  P. TROOPS  THUS 


158 


T~ 


MEASURES  OF  EFFECTIVENESS 


REO  CRS/BLUE  CRS  ■  mmm.mmm 

PERCENT  OF  RECOVEREO  JOBS  REPAIRED  m.mmm 

PERCENT  OF  DAMAGEO  VEHICLES  REPAIRED  m.mmm 

PERCENT  OF  TROOPS  NOT  KILLED  m.mmm 

FOR  EACH  HAINT.UNIT  IN  SUP. BN.  DO 

IF  NAME (HAINT.UNIT) >0  LET  IDENT-*HAINT.CQHP* 
ALWAYS  IF  NAME  (HAINT.UNIT) -1  LET  IDENT-'FHDl* 
ALWAYS  IF  NAME (HAINT.UNIT) «2  LET  IDENT**FHD2* 
ALWAYS  IF  NAME  (HAINT.UNIT) >3  LET  IDENT-*FND3* 
ALWAYS  IF  NAME (HAINT.UNIT) -V  LET  IDENT«“PHOV* 
REGARDLESS 

PRINT  2  LINES  WITH  I  DENT  THUS 
BACKLOG  FOR  mmmmmmmmmm 

IF  Wl. QUEUE  IS  NOT  EMPTY 
PRINT  2  LINES  WITH  I  DENT  THUS 

WAITING  INSPECTION  AT  hmnmmmmmm n 


WO  NUH 


PRINT  I  LINE  THUS 

JH  TIME  DOWN  VEH  TYPE  UNIT  FP  DAH  HOB  DAN 

FOR  EACH  J08  IN  HI. QUEUE.  DO 

PRINT  1  LINE  WITH  HO. NUH.  TIME. DOWN. VEH. TYPE.  UNIT.FP.OAH.  HOB. DAH  THUS 

■  MMM.MMMMM  M  M  M.MMMM  M.MMMM 

LOOP 

ELSE  PRINT  1  LINE  THUS 

NO  JOBS  WAITING  INSPECTION 
ALWAYS  IF  HS. QUEUE  IS  NOT  EMPTY 
PRINT  2  LINES  WITH  10ENT  THUS 
WAITING  SHOP  AT  mmmmmmmmmm 


PRINT  1  LINE  THUS 

HO  NUH  TIME  OOHN  VEH  TYPE  UNIT  FP  DAH  HOB  DAH 

FOR  EACH  JOB  IN  NS. QUEUE.  DO 

PRINT  I  LINE  WITH  HO.NUH.  TIME . OOHN. VEH. TYPE.  UNIT. FP. DAH.  HOB. DAN  THUS 

MMMM  MMM.MNMMM  N  M  M.MMMM  M.MMMM 

LOOP 

ELSE  PRINT  I  LINE  THUS 

NO  JOBS  WAITING  SHOP 
ALWAYS  IF  NT. QUEUE  IS  NOT  EMPTY 
PRINT  2  LINES  WITH  I DENT  THUS 

WAITING  TRANSPORTATION  AT  mmmmmmmmmm 


PRINT  1  LINE  THUS 

NO  NUN  TINE  DOWN  VEH  TYPE  UNIT 


FP  DAN  HOB  DAH 


_ _ -■>  _  ' 
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FOR  EACH  JOB  IN  MT. QUEUE.  00 

PAINT  1  LINE  WITH  HO. HUM,  T 1 HE. DOWN. VEH. TTPE.  UNIT. FP. DAN.  HOB.OAN  THUS 

HMMM  NNM.MNMNM  N  M  M.MMMM  M.MMMM 

LOOP 

ELSE  PRINT  I  LINE  AS  FOLLOUS 

NO  JOBS  HA1T1NG  TRANSPORTATION 
ALHATS  IF  HP. QUEUE  IS  NOT  EHPTT 
PRINT  2  LINES  HlTH  10ENT  THUS 
HA1T1NG  PARTS  AT  »»»«»« 

PRINT  1  LINE  THUS 

HO  NUN  TINE  OOUN  VEH  TTPE  UNIT  FP  DAN  HOB  DAN 

FOR  EACH  JOB  IN  HP. QUEUE,  DO 

PRINT  1  LINE  HITH  HO. HUM.  T 1HE. DOHN. VEH. TTPE.  UNIT.FP.DRH.  HOB.OAN  THUS 

MMMM  NMM.MMMMM  N  M  M.MMMM  M.MMMM 

LOOP 

ELSE  PRINT  1  LINE  THUS 

NO  JOBS  WAITING  PARTS 
ALHATS  IF  ARHAHENT  IS  NOT  EHPTT 
PRINT  2  LINES  HITH  1DENT  THUS 

IN  SHOP  (ARHAHENT)  AT  mmnmmmmmmm 
PRINT  1  LINE  THUS 

HO  NUH  T1HE  DOHN  VEH  TTPE  UNIT  FP  DAH  HOB  OAH  REP  TIHE 

FOR  EACH  JOB  IN  ARHAHENT (HA1NT. UNIT) .  DO 

PRINT  1  LINE  HITH  HO.NUH.  TIHE. DOHN. VEH. TTPE,  UNIT.FP.DRH.  HOB.OAN. 

T. ARH.REP  THUS 

MMMM  MMH.MMMMM  M  M  M.MMMM  M.MMMM  MM. HMMM 

LOOP 

ELSE  PRINT  1  LINE  THUS 

NO  JOBS  IN  ARHAHENT  SHOP 
ALHATS  IF  AUTOHOTIVE  IS  NOT  EHPTT 
PRINT  2  LINES  HITH  IOENT  THUS 

IN  SHOP  (AUTOHOTIVE)  AT  nmmmmmmmmm 
PRINT  1  LINE  THUS 

HO  NUH  TIHE  DOWN  VEH  TTPE  UNIT  FP  OAH  HOB  DAH  REP  TIHE 

FOR  EACH  JOB  IN  AUTOHOTI VE (HRINT. UNIT) ,  DO 

PRINT  1  LINE  HITH  HO.NUH,  TIHE. DOWN, VEH. TTPE.  UNIT.FP.DRH.  HOB. OAH. 

T. AUTO. REP  THUS 

MMMM  MMM.MMMMM  M  M  M.MMMM  M.MMMM  MM. MMMM 

LOOP 

ELSE  PRINT  1  LINE  THUS 

NO  JOBS  IN  AUTOHOTIVE  SHOP 
ALHATS  LOOP 
PRINT  3  LINES  THUS 

THE  FOLLOWING  JOBS  HAVE  BEEN  COHPLETEDi 
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PRINT  1  LINE  THUS 


1S1  HO  NUH  TIME  OOHN  VEH  TYPE  UNIT  FP  DAN  NOB  OAH  AUTO  REP  ARH  REP  REP  AT 
IS?  FOR  EACH  JOB  IN  CLOSED. JOB.  DO 

153  PRINT  1  LINE  Hi TH  HO. NUH.  TINE. OOHN. VEH. TYPE.  UNIT. FP. OAH.  MOB.DAH, 

154  T. AUTO. REP,  T. ARH. REP.  REP. UNIT  THUS 

155  NMMM  MMM. NMHM  N  M  M.MNMH  M ,  MM  M  M  MH.MMMM  MM.MMHM  H 

156  LOOP 

157  PRINT  3  LINES  THUS 

1S6 

159  THE  FOLLOHING  JOBS  HAVE  BEEN  EVACUATED  REARi 

160 

161  PRINT  1  LINE  THUS 

16?  HO  NUH  T1HE  OOHN  VEH  TYPE  UNIT  FP  DRH  HOB  DAH 

163  FOR  EACH  JOB  IN  E VAC. JOB.  DO 

164  PRINT  1  LINE  HITH  HO. NUH,  T IHE . DOHN. VEH. TYPE.  UNIT. FP. DAH.  HOB. DAH  THUS 

165  MNMM  MMN.NMNMM  M  M  M.MMHM  M . MM  M  M 

166  LOOP 

167  CALL  START. OVER 

166  RETURN 

169  END 
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ROUTINE  START. OVER 
LET  NUM.EVAC.REAR-O 
LET  NUH. RET. BATTLE-0 
LET  COUNT-O 
LET  CAN.F1X-0 
LET  TIME. V-0.0 

RESET  TOTALS  OF  TOT.REC  AND  TOT. NEED. REC 

RESET  TOTALS  OF  OOWN. TIME.  M. REP. TIME.  ARM. REP. TIME.  T I .TIME 
RESET  TOTALS  OF  CAS. COUNT  AND  R.CAS.CNT 
FOR  EACH  REPAIR  IN  EV. S (1 . REPAIR) .  00 

CANCEL  THE  REPAIR  OESTROT  THE  REPAIR  LOOP 
FOR  EACH  0ATL1GHT  IN  EV.S  (I. DAYLIGHT) .  DO 

CANCEL  THE  DAYLIGHT  DESTROY  THE  DAYLIGHT  LOOP 
FOR  EACH  MOVE. REAR  IN  EV. S  (I . MOVE. REAR) .  DO 

CANCEL  THE  MOVE. REAR  DESTROY  THE  HOVE. REAR  LOOP 
FOR  EACH  DIAGNOSIS  IN  E V. S  (I .  DI AGNOSI S)  .  DO 
FILE  SPEC. DI AG (DIAGNOSIS)  IN  KILL. JOB 
CANCEL  THE  DIAGNOSIS  DESTROY  THE  DIAGNOSIS  LOOP 
FOR  EACH  JUMP  IN  EV.  S  II .  JUMP)  .  DO 

CANCEL  THE  JUMP  DESTROY  THE  JUMP  LOOP 
FOR  EACH  GET. THERE  IN  EV.S  (I . GET. THERE) .  DO 

CANCEL  THE  GET. THERE  DESTROY  THE  GET. THERE  LOOP 
FOR  EACH  ARRIVAL  IN  EV.S  (I .ARRIVAL) .  DO 

CANCEL  THE  ARRIVAL  OESTROT  THE  ARRIVAL  LOOP 
FOR  EACH  BREAK  IN  EV. S  (I .BREAK) .  DO 

CANCEL  THE  BREAK  OESTROT  THE  BREAK  LOOP 
FOR  EACH  FAILURE  IN  EV. S (1 .FAILURE) .  DO 

CANCEL  THE  FAILURE  OESTROT  THE  FAILURE  LOOP 
FOR  EACH  BATTLE  IN  EV. S  (I .BATTLE) .  DO 
CANCEL  THE  BATTLE  DESTROY  THE  BATTLE  LOOP 
FOR  EACH  PARTS. COME  IN  EV. S  (I . PARTS. COME) .  DO 

CANCEL  THE  PARTS. COME  DESTROY  THE  PARTS. COME  LOOP 
FOR  EACH  HA! NT. UNIT  IN  SUP. BN.  DO 

FOR  EACH  JOB  IN  NT. QUEUE (MAINT. UNIT) .  DO 
IF  JOB  IS  IN  NT. QUEUE 

REMOVE  THE  JOB  FROM  NT. QUEUE  (MAI NT . UNIT) 

ALWAYS 

IF  JOB  IS  NOT  IN  KILL. JOB  FILE  JOB  IN  KILL. JOB  ALWAYS 
LOOP 

FOR  EACH  JOB  IN  MS. QUEUE  (MAINT . UNIT) .  DO 
IF  JOB  IS  IN  NS. QUEUE 
REMOVE  JOB  FROM  NS. QUEUE (MAINT. UNI Tl 
ALWAYS 

IF  JOB  IS  NOT  IN  KILL. JOB  FILE  JOB  IN  KILL. JOB  ALWAYS 
LOOP 

FOR  EACH  JOB  IN  ARMAMENT  (HA  I  NT. UNI T) .  DO 
IF  JOB  IS  IN  ARMAMENT 
REMOVE  JOB  FROM  ARMAMENT  IMA I NT. UN IT) 

ALWAYS 

IF  JOB  IS  NOT  IN  KILL. JOB  FILE  JOB  IN  KILL. JOB  ALWAYS 
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LOOP 

FOR  EACH  JOB  IN  AUTOMOTIVE  (MAINT.UNIT) .  DO 
IF  JOB  IS  IN  AUTOMOTIVE 
REMOVE  JOB  FROM  AUTOMOT I VE  (MA1NT. UNIT) 

ALWAYS 

IF  JOB  IS  NOT  IN  KILL. JOB  FILE  JOB  IN  KILL. JOB  ALWAYS 
LOOP 

FOR  EACH  JOB  IN  HI .QUEUE  (MAINT.UNIT) .  00 
IF  JOB  IS  IN  Ml. QUEUE 
REMOVE  JOB  FROM  Ml .QUEUE (MAINT.UNIT) 

ALWAYS 

IF  JOB  IS  NOT  IN  KILL. JOB  FILE  JOB  IN  KILL. JOB  ALWAYS 
LOOP 

FOR  EACH  JOB  IN  MP. QUEUE  (MAINT.UNIT) .  DO 
IF  JOB  IS  IN  HP. QUEUE 
REMOVE  J08  FROM  WP. QUEUE (MAI NT. UNIT) 

ALWAYS 

IF  JOB  IS  NOT  IN  KILL. JOB  FILE  JOB  IN  KILL. JOB  ALWAYS 
LOOP 
LOOP 

FOR  EACH  JOB  IN  CLOSED. JOB.  DO 
REMOVE  JOB  FROM  CLOSED. JOB 

IF  JOB  IS  NOT  IN  KILL. JOB  FILE  JOB  IN  KILL. JOB  ALWAYS 
LOOP 

FOR  EACH  JOB  IN  EVAC.JOB,  DO 
REMOVE  THE  JOB  FROM  EVAC.JOB 

IF  JOB  IS  NOT  IN  KILL. JOB  FILE  JOB  IN  KILL. JOB  ALWAYS 
LOOP 

FOR  EACH  JOB  IN  KILL. JOB.  DO 

REMOVE  THE  JOB  FROM  KILL. JOB  DESTROY  THE  JOB  LOOP 
FOR  1-1  TO  100.  FOR  J-!  TO  11.  LET  CAN. REC (I . J) -0 
FOR  1-1  TO  550.  FOR  J-l  TO  11.  LET  DAM. REC II . J) -0. 0 
FOR  EACH  MAINT.UNIT  IN  SUP. BN.  DO 
REMOVE  THE  MAINT.UNIT  FROM  SUP. BN 
OESTROY  THE  MP (NT . UNIT  LOOP 
RETURN 
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]  ROUTINE  TO  ASSESS. DAM  GIVEN  SPEC. JOB 

2  DEFINE  SPEC. JOB.  NO.  TCOUNT  AS  VARIABLES 

3  DEFINE  HOB.  FP,  Z  AND  T  AS  VARIABLES 

4  LET  JOB-SPEC. JOB 

5  IF  VEH. TYPE (JOB) -TANK  LET  HOB-6  LET  FP- 1 1 

6  ELSE  LET  HOB-6  LET  FP-9 

7  ALHAYS  LET  NO-NO. NUH (JOB) 

8  IF  HQB.OAH (JOB)  NE  0. 

9  LET  Y-lNT.F  (HOB.DAH  (JOB)  -REAL.F  (HOB)  ) 

10  'ORAN'  LET  Z-RANOI.F tl.HQB.8) 

11  IF  OAH.REC  (NQ.Z)  NE  0.  GO  ORAN 

12  ELSE  LET  OAH.REC  (NO. Z) -UNIFORH.F  (0. .  1. .  7) 

13  AOO  1  TO  YCOUNT  IF  TCOUNT  LT  Y  GO  ORAN 

14  REGAAOLESS  ALNATS  IF  FP. DAH (JOB) NE  0. 

15  LET  T-INT.F  (FP. OAM (JQBi -REAL. F(FP-HOB)) 

16  LET  YCOUNT-O 

17  •ROLL1  LET  Z-RAND1.F  ((HOB-1)  ,FP,B) 

18  IF  OAH.REC (NO, Z)  NE  0.  GO  ROLL 

19  ELSE  LET  OAH.REC  (HO.  Z) -RANOOH.F  (7) 

20  AOO  1  TO  YCOUNT  IF  TCOUNT  LT  T  GO  ROLL 

21  REGAROLESS  ALNATS 

22  RETURN 

23  ENO 
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ROUTINE  CANNIBAL  GIVEN  SPEC. JOB  AND  LEVEL  YIELDING  CAN 
DEFINE  FB.  I.  J.  NSB.  MO  AS  VARIABLES 
DEFINE  SPEC. JOB  AS  A  VARIABLE 
DEFINE  Z  AS  A  REAL  VARIABLE 
DEFINE  X  AS  A  REAL  VARIABLE 
DEFINE  JUNK  AS  A  VARIABLE 
DEFINE  CAN. VEH  AS  A  1 -01 HENSI ONAL  ARRAY 
OEFINE  LEVEL  AS  A  VARIABLE 
DEFINE  CAN  AS  A  VARIABLE 
LET  JOB-SPEC. JOB  LET  MAINT. UNIT-LEVEL 
LET  MO-MO. NUH  (JOB) 

If  VEH. TYPE (JOB) -TANK  LET  FP-ll 
ELSE  LET  FP-9 

ALMAYS  RESERVE  CAN. VEH U)  AS  FP 
FOR  1-1  TO  FP.  00 

IF  OAH. REC  (MO. I ) >0.  ADO  1  TO  NSB 
ALMAYS  LOOP 

FOR  EACH  JUNK  IN  MT. QUEUE  MITH  VEH. TYPE  1JUNK) -VEH. TYPE  (SPEC. JOB) .  00 
IF  JUNK- JOB  GO  CONTINUE  ALMAYS 
FOR  J-l  TO  FP.  DO 

IF  OAH. REC (HO. J) -0.  GO  LOOP 
ELSE  IF  CAN.  VEH  (J1  NE  0  GO  LOOP 

ELSE  IF  DAH.  REC  (MO.  J1  >1 .  -DAH.  REC  (MO.  NUH  (JUNK) ,  J)  GO  LOOP 
ELSE  LET  X-RANOOH. F  (1) 

IF  X>1 .O-OAH.REC  (MO.  NUH  (JUNK!  .  J)  GO  LOOP 
ELSE  LET  CAN. VEH U) -JUNK  ADD  1  TO  CAN 

ADD  1  TO  CAN.  NUH  (JUNK)  ADD  1.0  TO  DAM.  REC  (MO.  NUH  (JUNK)  ,  J) 

•LOOP*  LOOP 
IF  CAN-NSB  GO  AHEAD 
ELSE  •CONTINUE*  LOOP 

FOR  EACH  JUNK  IN  MP. QUEUE  MITH  VEH. TYPE (JUNK) -VEH. TYPE (SPEC. JOB) ,  DO 
IF  JUNK- JOB  GO  ON  ALMAYS 
FOR  J-l  TO  FP.  00 

IF  OAH. REC  (MO,  J)  -0.  GO  AROUND 
ELSE  IF  CAN. VEH (J)  NE  0  GO  AROUND 

ELSE  IF  OAH. REC  (HO,  J)  >1 .  -  DAH. REC  (MO. NUH  (JUNK) ,  J)  GO  AROUNO 
ELSE  LET  X-RANOOH. F  (!) 

IF  X>1.0-0AH.REC(M0.NUH(JUNK)  ,  J)  GO  AROUND 
ELSE  LET  CAN. VEH (J) -JUNK  ADD  I  TO  CRN 

ADO  1  TO  CAN.  NUN  (JUNK)  ADO  i.O  TO  OAH.  REC  (MO.  NUH  (JUNK)  ,  J) 
'AROUND'  LOOP 
IF  CAN-NSB  GO  AHEAO 
ELSE  'ON'  LOOP 

"CANNOT  CANNIBALIZE"  LET  CAN-0 
RELEASE  CAN. VEH («)  RETURN 

'AHEAO'  "PREPARE  TO  CANNIBALIZE" 

IF  JOB  IS  IN  HT. QUEUE  REHOVE  JOB  FROM  MT. QUEUE  ALMAYS 
IF  JOB  IS  IN  UP. QUEUE 
REHOVE  JOB  FROH  HP. QUEUE  ALMAYS 
IF  JOB  IS  NOT  IN  MS. QUEUE  FILE  JOB  IN  MS. QUEUE  ALMAYS 
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51  FOR  J-l  TO  FP.  DO 

52  IF  COM.  VEH  (J)  *0  GO  THRU 

53  ELSE  FOR  EACH  HOVE. REAR  IN  EV. S (I . MOVE. REAR)  Ml TH  SPEC. JOB-CAN. VEH U) .  00 

59  CANCEL  THIS  HOVE. REAR  DESTROY  THIS  HOVE. REAR 

55  'THRU'  LOOP 

56  FOR  EACH  PARTS. COHE  IN  EV.S Cl .PARTS. CORE)  WITH  SPEC. JOB-CAN. VEH (J) .  DO 

57  CANCEL  THIS  PARTS. COHE 

56  LET  Z-  (BETA.  F  (A  (5 . 1 )  .  A  (5, 21  . 6)  «  (T.  ACT  1  ON  (5. 31  -T .  ACT  ION  (5. 1 1)  1  ♦ 

59  T . ACT  ION  IS, 1 ) 

60  LET  Z-Z/29.0 

61  LET  T. PART. COMES-MAX. FITIME.  A  (PARTS. COHE), TIME.  V-Z)  -T1ME.V 

62  RESCHEDULE  THIS  PARTS. COHE  GIVEN  CAN. VEH (J)  AND  LEVEL  IN  T.PART.COHES 

63  HOURS 

6V  IF  CAN, VEH  (J)  IS  NOT  IN  HP. QUEUE  FILE  CAN. VEH (J)  IN  HP. QUEUE (HAINT. UNIT) 

65  ALHATS 

66  LOOP 

67  LOOP 

68  FOR  1-1  TO  100,  00 

69  FOR  J-l  TO  11.  00 

70  IF  CAN.REC(l.J)  NE  0  GO  DROP 

71  ELSE  LOOP 

72  LET  IN. CAN (J08) -I  GO  FURTHER 

73  'DROP*  LOOP 

79  ‘FURTHER*  FOR  J-l  TO  FP  LET  CAN. REC  (IN.  CAN  (JOB)  .  J) -CAN.  VEH  (J) 

75  RELEASE  CAN.VEH(i<I 

76  RETURN 

77  END 
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I  ROUTINE  TO  SUBSTITUTE  GIVEN  SPEC. JOB.  LEVEL  ftND  R.CREH 
OEFINE  R.CREH.  FP.  J.  LEVEL.  N.  N.  HO  RS  VARIABLES 
DEFINE  JOB. MOVE  RS  R  VARIABLE 

V  LET  MfllNT. UNIT-LEVEL  LET  JOB-SPEC. JOB  LET  CREH-R.CREH 

5  LET  HO-HO.NUH (JOB) 

6  IF  VEH. TYPE (JOB) -TANK  LET  FP-11 

7  ELSE  LET  FP-9 

8  ALHATS  IF  MISSION (CREH) -AUTO  LET  H-l  LET  N-6 

9  ELSE  LET  H-7  LET  N-FP 

10  ALWAYS  FOR  J-M  TO  N,  00 

II  IF  CAN.  RECUN.  CAN  (JOB)  ,J)-0  GO  LOOP 

12  ELSE  AOO  (OAM. REC  (HO.  J)  -1 .0)  TO  DAM. REC  (HO.NUH  (CAN.REC  (IN. CBN  (JOB) .  J) ) .  J) 

13  SUBTRACT  1  FROM  CAN. NUM  (CAN.REC  (IN. CAN  (JOB)  .  J) ) 

IN  IF  CAN. NUM  (CAN.REC  (IN. CRN  (JOB) .  J) )  NE  0  GO  ZERO  ELSE 

15  IF  CAN. REC  (IN. CAN  (JOB)  ,J)  IS  NOT  IN  UT. QUEUE  GO  ZERO  ELSE 

16  LET  JOB. MOVE-CAN. REC  (IN. CAN  (JOB) . J) 

17  SCHEDULE  A  HOVE. REAR  GIVEN  JOB. MOVE  AND  LEVEL  IN  (BETA. F  (A  (7. 1) , 

18  A  (7, 21  .9)  -  (T .  ACT  ION  (7. 3)  -  T  .ACTION  (7,1)))  *T.  ACT  ION  (7.1)  HOURS 

19  •ZERO* 

20  LET  CAN.  REC  (IN.  CAN  (JOB).  J) -0 

21  •LOOP*  LOOP 

22  RETURN 

23  END 
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1  ROUTINE  OET. ALLOC 

2  DEFINE  PEOPLE  AS  A  REAL  VARIABLE 

3  OEF1NE  LEV. ATT  AS  A  VARIABLE 

V  DEFINE  P.OET.  LAMBDA  AND  X  AS  REAL  VARIABLES 

S  FOR  EACH  HAINT.UN1T  IN  SUP. BN  WITH  NAME  IMAINT. UNIT) >0.  DO 

8  LET  LAMBOA-1. /SORT. F (VEH. COUNT (MAINT. UNIT)) 

7  LET  P.OET-EXP.F  (- (LAHBDAaO.FLOT  (MAINT. UNIT)  «*ALFA)  I 

8  LET  PEOPLE-NM. F0LKS1MAINT. UNIT) *NF. FOLKS (MAINT. UNIT) 

9  IF  PEOPLE  LE  2.  PRINT  1  LINE  WITH  NAME  (MAINT. UNIT)  THUS 

10  MAINT  UNIT  ■  x  ALREADT  DESTROYED 

11  GO  LOOP  OTHERWISE 

12  LET  X-RAN00H.F(7) 

13  IF  X  LE  P.OET  PRINT  1  LINE  WITH  NAME (MAI NT. UN IT)  AND  PEOPLE  THUS 

14  MAINT  UNIT  •  «  DETECTED  THIS  BATTLE  «««  PERSONNEL  PRESENT 

15  LET  LEV. ATT-MAINT. UNIT 

16  CALL  ATTACK  GIVEN  LEV. ATT 

17  LET  PEOPLE-PEOPLE-NH. FOLKS (MAINT. UNIT) -NF. FOLKS (MAINT. UNIT) 

16  PRINT  1  LINE  WITH  PEOPLE  THUS 

19  hmm  PEOPLE  KILLED  IN  THIS  ATTACK 

20  ELSE  PRINT  1  LINE  WITH  NAME  (MAINT. UNIT) .  P.OET.  D.FLOT  AND  VEH.COUNT  THUS 

21  MAINT  UNIT  •  «  NOT  DETECTED  P.OET  -  >.»•>  D.FLOT  >  mh.mhh  VEH  -  »«. 

22  PRINT  1  LINE  WITH  PEOPLE  THUS 

23  «m«  PERSONNEL  PRESENT  AT  UNIT 

24  ALNATS  ’LOOP’  LOOP 

25  RETURN 

26  END 
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ROUTINE  ATTACK  GIVEN  LEV. ATT 

DEFINE  LEV. ATT  AND  SPEC. JOB  AS  VARIABLES 
DEFINE  1  AND  LEV. HOVE  AS  VARIABLES 
0EF1NE  HIS,  N. AUTO.  N.ARH  AS  VARIABLES 
DEFINE  N,  F.  LOF,  LOH  AS  REAL  VARIABLES 
LET  HA1NT. UNIT-LEV. ATT 

IF  PK.PERS  GT  RANDOM. F (7)  SUBTRACT  1.  FROM  NH. FOLKS (HAI NT. UNIT)  ALWAYS 
FOR  EACH  CREM  IN  SHOP IKAINT. UNIT)  WITH  OCCUPAT  ION  (CREM)  NE  DEAD.  DO 
FOR  1-1  TO  N. FOLKS  (CREW)  .DO 

IF  PK.PERS  GT  RANDOM. F  (7)  “GUT  KILLED*  • 

IF  MISSION (CREW) -AUTO  SUBTRACT  ).  FROM  NH. FOLKS  (HA1NT. UNIT) 

ELSE  SUBTRACT  1.  FROM  NF. FOLKS (MAINT. UNIT) 

ALWAYS  SUBTRACT  1.  FROM  N. FOLKS  (CREW) 

ALWAYS  LOOP 

LOOP 

LET  H-NH. FOLKS  (MAINT. UNIT)  /2. 

LET  F-NF. FOLKS (MAINT. UNIT) /2. 

LET  N.  ARM-TRUNC.F  (F) 

LET  N. AUTO-TRUNC. F (H) 

IF  FRAC.F (M) »0.  LET  LOM-1.  ALWAYS 
IF  FRAC.F  (FI  >0.  LET  LOF-1.  ALWAYS 

FOR  EACH  CREW  IN  SHOP (MAINT. UNIT)  WITH  OCCUPAT ION (CREW) -BUSY.  DO 
IF  MISSION  (CREW) -AUTO 

IF  N. AUT0>0  SUBTRACT  I  FROM  N.AUTO 
LET  N.  FOLKS  (CREM)  -2. 

ELSE  LET  OCCUPAT I  ON (CREW) -DEAD 
FOR  EACH  REPAIR  IN  EV.S  (1 .REPAIR)  WITH  A. CREW-CREW.  DO 
CANCEL  THE  REPAIR  LET  JOB-SPEC. REP (REPAIR) 

REMOVE  JOB  FROM  AUTOMOTIVE  IMA I NT. UN IT) 

FILE  JOB  IN  WS. QUEUE (MAINT. UNIT) 

OESTROY  THE  REPAIR  LOOP 

ALWAYS 

ELSE  IF  N. RRM»0  SUBTRACT  1  FROM  N.ARH 
LET  N.  FOLKS  (CREW) -2. 

ELSE  LET  OCCUPATION (CREW) -OEAO 

FOR  EACH  REPAIR  IN  EV.  S  (I  .REPAIR)  WITH  A. CREW-CREW.  DO 
CANCEL  THE  REPAIR  LET  JOB-SPEC. REP (REPAIR) 

REMOVE  JOB  FROM  ARMAMENT  (MAINT. UNIT) 

FILE  JOB  IN  WS. QUEUE (MAINT. UNIT) 

DESTROY  THE  REPAIR  LOOP 
REGARDLESS  ALWAYS  LOOP 

FOR  EACH  CREW  IN  SHOP (MAINT. UNIT)  WITH  OCCUPATION  (CREW) -IDLE.  00 
IF  MISSION  (CREW) -AUTO 

IF  N.AUT0>0  SUBTRACT  1  FROM  N.AUTO  LET  N. FOLKS (CREW) -2. 

ELSE  LET  OCCUPAT  I  ON  (CREW) -DEAD 
ALWAYS 

ELSE  IF  N.ARH>0  SUBTRACT  1  FROM  N.ARH  LET  N. FOLKS (CREW) -2. 

ELSE  LET  OCCUPATION (CREW) -DEAD 
ALWAYS 
ALWAYS  LOOP 
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IF  LOF-1.  FOR  EACH  CREH  IN  SHOP  (HAINT. UNIT)  WITH  MISSION (CREW) -ARM 
ANO  OCCUPATION (CREH)  NE  DEAD.  00 
AOO  1.  TO  N. FOLKS (CREN)  CO  DOWN  LOOP 
'OOHN *  ALWAYS 

IF  LOH-1.  FOR  EACH  CREH  IN  SHOP (HAINT. UNIT)  HITH  MISSION (CREH) -AUTO 
ANO  OCCUPATION  (CREH)  NE  OERQ.  DO 
AOO  I.  TO  N.  FOLKS  (CREH)  GO  OUTN  LOOP 
*OUTN’  ALUAYS 

FOR  EACH  REPAIR  IN  EV.S (I . REPAIR)  HITH  LEV. REP  (REPAIR) •HAINT. UNIT  AND 
LOOP.CH  (SPEC. REP  (REPAIR)  1-0,  DO 
CANCEL  THE  REPAIR 
LET  LOOP. CH(SPEC. REP  (REPAIR))-! 

RESCHEDULE  THE  REPAIR  AT  TIME. A (REPAIR) *0.042 
LOOP 

FOR  EACH  JOB  IN  ARMAMENT  (HAINT. UNIT)  LET  LOOP.CH (JOB) -0 
FOR  EACH  JOB  IN  AUTOMOTIVE (HAINT. UNIT)  LET  LOOP. CM  I  JOB) -0 
FOR  EACH  DIAGNOSIS  IN  EV. S  (1 . 01 AGN0S1S)  HITH  LEV. DIAG (OIAGNOSIS) -HAINT. UNIT 
ANO  LOOP.CH (SPEC. 01AG (OIAGNOSIS) ) -0.  00 
CANCEL  THE  DIAGNOSIS 
LET  LOOP . CH  (SPEC . 0 1 AG (P I AGNOS 1 S) ) - 1 
RESCHEDULE  THE  DIAGNOSIS  AT  TIME. A  (DIAGNOSIS) *0.042 
LOOP 

FOR  EACH  DIAGNOSIS  IN  EV.S (I. DIAGNOSIS)  HITH  LEV. DIAG (DIAGNOSIS) -HAINT. UNIT 
LET  LOOP.CH  (SPEC.  01  AG  (01  AGNOS  I S) )  -0 
LET  HAINT. UNIT-LEV. ATT 
LET  LEV. H0VE-MA1NT. UNIT 
IF  NM. FOLKS (HAINT. UNIT)  LE  t. 

FOR  EACH  JOB  IN  HS.OUCUE (HAINT. UN) T)  HITH  MOB. DAM (JOB) »0. ,  DO 
REMOVE  JOB  FROM  HS. QUEUE (HAINT. UNIT) 

LET  SPEC. JOB- JOB 

SCHEOULE  A  MOVE. REAR  GIVEN  SPEC. JOB  AND  LEV.HOVE  IN  (BETA.F (A (7,1), 

A (7.2)  .9)  -  (T.  ACTION  (7. 3)  -T.  ACTION  (7.1)))  *T.  ACTION  (7,1)  HOURS 
IF  JOB  IS  NOT  IN  HT.OUEUE 
FILE  JOB  IN  HT.OUEUE (MAINT. UNIT) 

ALWAYS 

FOR  EACH  REPAIR  IN  EV. S  (I . REPAIR)  WITH  SPEC. REP-JOB.  00 
CANCEL  THE  REPAIR  LET  OCCUPATION (A. CRE'  ) -IOLE 
IF  JOB  IS  IN  ARMAMENT  REMOVE  JOB  FROM  ARMAMENT  ALWAYS 
LET  CREH-A.CREH  DESTROY  THE  REPAIR  LOOP 
LOOP 

FOR  EACH  JOB  IN  HP.OUEUE (MAINT. UNIT)  HITH  MOB. DAM  (JOB) >0. ,  DO 
REMOVE  JOB  FROM  HP.OUEUE (MAINT. UNIT) 

FOR  EACH  PARTS. COME  IN  EV. S  ( I .PARTS. COME)  HITH  SPEC. PART-JOB 
CANCEL  THE  PARTS. COME 
LET  SPEC. JOB- JOB 

SCHEDULE  A  HOVE. REAR  GIVEN  SPEC. JOB  ANO  LEV.HOVE  IN  (BETA. F (A  (7. 1) , 

A  (7,2)  ,9)  x  (T.  ACT  ION  (7,  S)  -T.  ACTION  (7, 1) ) )  *T.  ACTION  (7,1)  HOURS 
FILE  JOB  IN  HT.OUEUE (HAINT. UNIT) 

LOOP 

FOR  EACH  JOB  IN  HI . QUEUE (MAINT. UNIT)  HITH  HOB. DAM (JOB) >0. .  DO 
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REMOVE  I ME  JOB  FROM  MI. QUEUE (MAlNT. UNIT) 

LET  SPEC. JOB* JOB 

SCHEDULE  fl  MOVE. REAR  GIVEN  SPEC. JOB  AND  LEV. HOVE  IN  (BETA. F  IA  (7. 1) . 

A 17. 21 ,9)«  (T.  ACT  ION  (7. 3)  -T.  ACTION  (7.  Ill )  *T.  ACTION  (7. 1 )  HOURS 
FILE  JOB  IN  NT. QUEUE (MAlNT. UNIT) 

LOOP 

FOR  EACH  OIAGNOSIS  IN  EV.S (I .DIAGNOSIS)  NITH  LEV. D1AG-HA1NT. UNIT.  00 
LET  JOB-SPEC. 01  AG (OIAGNOSIS) 

IF  MOB.OAN (JOB) >0.  CANCEL  THE  OIAGNOSIS  DESTROY  THE  OIAGNOSIS 
ROD  1  TO  INSPECTOR (MAlNT. UNIT) 

LET  SPEC. JOB- JOB 

SCHEDULE  A  MOVE. REAR  GIVEN  SPEC. JOB  RND  LEV. HOVE  IN  (BETA.F (A  (7.1). 

A  (7. 2)  ,  9)  •*  (T .  ACT  1  ON  (7. 3)  -T .  ACT  I  ON  (7. 1 ) ) )  *T .  ACT  1  ON  (7. 1 )  HOURS 
FILE  JOB  IN  NT. QUEUE (HAINT. UNIT) 

ALHATS  LOOP 
ALNATS 

IF  NF. FOLKS  (HAINT. UNIT)  LE  I. 

FOR  EACH  JOB  IN  NS. QUEUE  (HA I  NT. UNIT)  NITH  FP. DAH  ( JOBI >0. .  00 
REMOVE  JOB  FROM  MS. QUEUE  (HAINT. UNIT) 

LET  SPEC. JOB- JOB 

SCHEDULE  A  HOVE. REAR  GIVEN  SPEC. JOB  AND  LEV. HOVE  IN  (BETA.F  (A  (7. 1) . 
A  (7.21  ,9)  »  (T.  ACTION  (7, 3)  -T.  ACTION  (7.1)))  -T. ACTION  (7. 1)  HOURS 
IF  JOB  IS  NOT  IN  NT. QUEUE 
FILE  JOB  IN  MT. QUEUE (HAINT. UNIT) 

ALMATS 

IF  JOB  IS  IN  AUTOMOTIVE  REMOVE  JOB  FROM  AUTOMOTIVE  ALHATS 
FOR  EACH  REPAIR  IN  EV.S (I .REPAIR)  NITH  SPEC. REP- JOB.  DO 
CANCEL  THE  REPAIR  LET  OCCUPATION (A. CREW) -IDLE 
DESTROY  THE  REPAIR  LOOP 
LOOP 

FOR  EACH  JOB  IN  MP. QUEUE  (MAlNT. UNIT)  MITH  FP.DAM  (JOB) >0. .  00 
REMOVE  JOB  FROM  MP. QUEUE (HAINT. UNIT) 

FOR  EACH  PARTS. COME  IN  EV. S  (I .PARTS. COHE)  NITH  SPEC. PART- JOB 
CANCEL  THE  PARTS. COME 
LET  SPEC. JOB- JOB 

SCHEDULE  A  MOVE. REAR  GIVEN  SPEC. JOB  RND  LEV. HOVE  IN  (BETA. F (A (7. 1) . 

A  (7.2)  . 9) «  (T.  ACTION  (7, 3) -T.  ACTION  (7.1) )  I  *T.  ACTION  (7. 1)  HOURS 
FILE  JOB  IN  MT. QUEUE  (HAINT. UNIT) 

LOOP 

FOR  EACH  JOB  IN  MI . QUEUE  (MAlNT. UNIT)  MITH  FP.DAM (JOB) >0. .  DO 
REMOVE  THE  JOB  FROM  Ml . QUEUE  (HAINT .UNIT) 

LET  SPEC. JOB- JOB 

SCHEDULE  A  HOVE. REAR  GIVEN  SPEC. JOB  AND  LEV. MOVE  IN  (BETA.F (A (7. I) . 

A  (7,2)  ,9)  ■  (T.  ACT  ION  (7, 3)  -T.  ACT  I  ON  (7,1)))  -T.  ACTION  (7,1)  HOURS 
FILE  JOB  IN  MT. QUEUE (HAINT. UNITI 

LOOP 

FOR  EACH  DIAGNOSIS  IN  EV.SI1. DIAGNOSIS)  MITH  LEV. 01 AG-HAINT.UNIT,  00 
LET  JOB-SPEC. 01 AG (OIAGNOSIS) 

IF  FP.OAH (JOB) >0.  CANCEL  THE  OIAGNOSIS  OESTROY  THE  DIAGNOSIS 
ADO  I  TO  I NSPECTOR (HA I NT . UN I T) 
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151  LET  SPEC. JOB* JOB 

152  SCHEDULE  ft  MOVE. REAR  GIVEN  SPEC. JOB  RND  LEV. HOVE  IN  (BETA. F (ft  17. II . 

153  R  (7.21  .  9)  ■  (T.  ACT  ION  17,  31  -  T.  ACTION  (7, 1 1 1 1  *T.  ACTION  (7, 1 1  HOURS 

154  FILE  JOB  IN  NT. QUEUE  (HA1NT. UNIT) 

155  ALMATS  LOOP 

156  ALNRTS 

157  RETURN 

158  END 
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1  ROUTINE  TO  COHP.T1HES 

2  DEFINE  I  AND  J  AS  VAR I ARLES 

3  DEFINE  B  AND  HU  AS  REAL  VARIABLES 

U  PRINT  3  LINES  AS  FOLLONR 

5 

6  INPUT  T1HE  PARAMETERS 

7 

B  FOR  1-1  TO  B.  DO 

9  FOR  J-l  TO  3  READ  T.  ACT  ION  (I .  J) 

10  LET  B-  (T.  ACTION  (1. 2)  -T.  ACTION  II.  1) )  /  (T.  ACT  ION  (1 . 3)  -T.  ACTION  (1 . 11) 

11  LET  HU- (Cl. OmB)  *1.01/6.0 

12  LET  AC1.1I- ((MUmn2Im(1.0-MU)m36.0>-MU-1.0 

13  LET  Ad, 2>-((A(l. 11*1. Ol/HUl-Ad. 11-1. 0 

IN  PRINT  1  LINE  HI  TH  I.  Ad.ll.  Ad. 21.  T.  ACTION  (1 . 1 1 .  T.  ACTION  (1 .2)  . 

15  T.  ACTION  (1 . 3)  THUS 

16  1-M  A  111  MM  AI21-MMMM.MM  T.Adl-NM.MK  T.Al2)-MM.MM  T.AI31-MM.MM 

17  LOOP 

18  RETURN 

19  END 
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ROUTINE  IN1T. PRINT 

PRINT  13  LINES  NITH  P.TANK,  P.NOB,  N.BNS.  P.FlX.FWO.  PR. HAVE . PARTS. FWD, 

P. CO. FIX.  PR. REAR. HAVE. PARTS  AS  FOLLOHS 

INPUT  PARAMETERS 

THE  PROPORTION  OF  JOBS  THAT  ARE  TANKS  IS  .mmmm 
THE  REST  ARE  APC'S 

THE  PROPORTION  OF  SYSTEM  FAILURES  THAT  ARE  AUTOMOTIVE  IS  .mm«m 
THE  REST  ARE  ARMAMENT  JOBS 
THERE  ARE  m  SUPPORTED  BATTALIONS  IN  THE  BRIGADE 
THE  PERCENTAGE  OF  DAMAGE  THAT  CAN  BE  FIXED  FORWARD  IS  .mmmm 
THE  PROBABILITY  THAT  THE  FORWARD  DET.  WILL  HAVE  THE  PARTS  IS  .mmmm 
THE  PERCENTAGE  OF  DAMAGE  THAT  CAN  BE  FIXED  AT  THE  COMPANY  IS  .mmmm 
THE  PROBABILITY  THAT  THE  COMPANY  HAS  THE  PARTS  IS  .mmmm 

PRINT  26  LINES  WITH  EX. RAT.  8ZER0,  RZERO.  BP.  R.2ECH.  SPACE. ECH. 

TGT.PRI.  PR. INC. 10,  LS.  REC.NUH,  SELF. LIKE.  UNREC.  TH.  HCPO.  CCSL.  CCSU. 
MfTF,  LEA0.T1ME.  SETUP. TIME.  CON. SPEED.  B.D1ST,  PK.PERS  THUS 

BATTLE  ANO  RECOVERY  INPUT  PARAMETERS 


EXCHANGE  RATIO  AT  BEGINNING  OF  BATTLE  . 

BLUE  FORCE  LEVEL  AT  START  OF  BATTLE  mmm. 

RED  FORCE  LEVEL  AT  START  OF  BATTLE  mmm. 

RED  BREAK  POINT  IS  «.«»  SURVIVING 

REO  SECOND  ECHELON  ADVANCE  RATE  mm.m  KM/HR 

ECHELON  SPACING  mm.  KM 

RECOVERY  VEHICLE  TARGET  PRIORITY  « 

PROBABILITY  OF  INCORRECT  IDENTIFICATION  OF  RECOVERY  VEHICLE  .mm 

PROBABILITY  OF  LINE  OF  SIGHT  .mm 

NUMBER  OF  RECOVERY  VEHICLES  AT  START  >• 

PROPORTION  OF  SELF  ANO  LIKE  RECOVERY  .«« 

PROPORTION  OF  UNRECOVERABLE  VEHICLES  .mm 
EXPECTED  HOOKUP  TIME  mmm.m  HOURS 

DISTANCE  FROM  BATTLE  SITE  TO  MCP  AT  START  OF  BATTLE  mm  KM 

CROSS  COUNTRT  SPEEO  LOADED  mm.m  KM/HR 

CROSS  COUNTRY  SPEEO  UNLOADED  mm.m  KN/HR 

MEAN  TIME  BETWEEN  SYSTEM  FAILURES  mmm.m  OPERATING  HOURS 

WARNING  TIME  BEFORE  START  OF  BATTLE  mmm  HOURS 

TIME  FOR  SETUP  AFTER  MOVE  mmm  MINUTES 

CONVOY  SPEEO  DURING  MOVE  mm.  mm  KM/HR 

BREAKPOINT  OISTANCE  AT  WHICH  DET.  MOVES  mm  KM 

PROBABIUTT  OF  PERSONNEL  CASUALTY  IN  ATTACK  m.mm 

RETURN 


1  ROUTINE  GAMMA. F (MEAN, K. STREAM) 

2  DEFINE  MEAN.K,KK,I,Z.A.B.O,E.X,T  AND  N  AS  REAL  VARIABLES 

3  DEFINE  STREAM  AS  AN  INTEGER  VARIABLE 

<1  IF  HEAN  LE  0..  LET  ERR.F-145  ELSE 

5  IF  K  LE  0.0  LET  EAR. F«1 46  ELSE 

6  LET  Z-0. 

7  REGARDLESS  RINATS 

8  LET  KK-TRUNC.F  IK) 

9  LET  0«K-KK 

10  IF  KK-O.  GO  TO  BETA 

11  ELSE  LET  £-1.0 

12  FOR  !•!  TO  KK  LET  E-E-RANDOM.F (STREAM) 

13  LET  Z— LOG.E.FIEI 

14  IF  D-0.  RETURN  HITH  Zh (MEAN/K)  ELSE 

15  •BETA* 

16  LET  A»1 .0/0  LET  B- 1 . 0/ 11 . 0-D) 

17  •NEXT* 

IB  LET  X-RANOOM.F (STREAM) «xA 

19  LET  T-BRNDOM.F  (STREAM)  ««B-*X 

20  IF  T  LE  1.0  GO  OUT 

21  ELSE  GO  TO  NEXT 

22  ’OUT  * 

23  LET  N-X/T 

2<l  LET  T«-LOG.E.F  (RANDOM. F  (STREAM) ) 

25  RETURN  WITH  (Z*M«Y)  n  IMEAN/K) 

26  END 
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